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0.1 符号 计算 与 数值 计算 


在 高 级 语言 环境 下 ,数值 计算 即 计算 数学 表达 式 的 值 是 计算 机 的 主要 工作 之 一 . 
数学 表达 式 由 常量 .变量 .函数 和 运算 符 等 组 成 ,最 后 的 计算 结果 是 一 个 数 。 一 个 数 
值 计 算 问 题 要 经 过 多 步 浮 点 运算 ,方法 的 收敛 性 .收敛 速度 、 舍 人 误差 和 误差 累计 与 
计算 结果 密切 相关 。 例 如 ,用 C 语言 编程 计算 = 一 (z 十 y 六 一 (六 十 3ry 十 3zy 十 
只 ), 其 中 垃 一 10000,y 王 0. 0001, 得 到 结果 z 三 一 0. 0001220708125。 但 是 ,我 们 知 
道 ,对 任意 的 zx,y, 表 达 式 z 的 值 都 应 该 为 0。 

“符号 ?包括 “数值 > “符号 ? 远 比 “数值 ?表示 的 范围 广 。 符 号 计算 是 研究 如 何在 
计算 机 上 上 表示 和 处 理 数学 符号 ,设计 进行 数学 公式 的 演算 和 推导 的 高 效 计算 方法 ,以 
及 通过 计算 机 程序 和 软件 系统 实现 这 些 算 法 。 人 符号 计算 包括 数值 计算 和 数学 推理 ， 
数学 推理 表现 在 对 数学 表达 式 的 化 简 和 函数 变换 上 。 例 如 ,对 多 项 式 因 式 分 解 ,计算 
不 定 积分 。 符 号 计算 的 处 理 对 象 是 具有 含义 的 数学 符号 ,如 整数 .数学 和 数 .字母 . 胃 
数 等 。 在 符号 计算 环境 下 ,表达 式 仍 由 常量 ,变量 .函数 和 运算 符 等 组 成 ,最 后 的 计算 
结果 是 经 过 数学 变换 的 表达 式 , 可 以 是 一 个 数值 ,变量 、 函 数 ,也 可 以 是 含有 运算 符 的 
表达 式 。 对 于 精确 数 计 算 结 果 总 是 精确 的 ,没有 误差 的 。 例 如 ,在 Maple 中 计算 
xz :一 (z 十 y)3 一 ( 妈 十 3z2y 十 3z 妈 十 另 ) ,用 符号 计算 方式 直接 化 简 SimplifyLzJ 的 结 
果 是 精确 数 0; 如 果 输 入 zj: 一 10000,y: 王 1/10000, 则 系统 做 精确 数 运算 得 到 红 采 
:一 0 如果 输入 的 是 zx:=10000,y: 一 0.0001, 则 系统 做 数值 运算 得 到 绪 采 

xz : 一 一 0.000030000001。 又 例如 :对 未 赋 初 值 的 变量 rz, 因 式 分 解 factor(Cz 一 5z 十 
6) 的 结果 是 多 项 式 乘 积 (z 一 2)(z 一 3)。 

符号 计算 系统 是 进行 符号 计算 的 计算 机 软件 系统 。 目 前 一 些 流行 的 符号 计算 系 
统 有 :, Aldor, Axiom, CoCoA, Derive, GAP, Macauljay,，Macsyma，Magma，Maple， 
Mathematica， Maxima,MuPAD, Reduce,Singular 等 。 其 中 既 有 为 特殊 目的 开发 的 
专用 软件 系统 ,也 有 集成 了 符号 计算 .数值 计算 .图形 界面 . 遍 级 语言 编程 等 功能 的 通 
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用 软件 系统 ; 既 有 免费 的 开放 源 代 码 软 件 , 也 有 价值 不 菲 的 商业 软件 。 

符号 计算 系统 的 对 象 从 初等 数学 到 高 等 数学 ,几乎 涉及 所 有 数学 领域 。 从 表达 
式 的 化 向 .整数 分 解 . 导数 、 积 分 方程 求解 、 微 分 方程 .矩阵 计算 到 码 的 构造 、 环 的 理 
想 、 群 的 表示 、 范 畴 的 定义 等 。 

侍 号 计算 系统 已 被 成 功 地 应 用 于 绝 大 多 数 的 科学 研究 和 工程 技术 领域 , 它 也 是 
数学 领域 和 数学 定理 机 械 化 证 明 的 有 力 工 具 。 由 于 它 能 够 正确 地 完成 人 脑 在 短 时间 
内 无 法 完成 的 公式 推导 计算 ,应 用 符号 计算 系统 ,使 得 不 少 研究 领域 的 前 沿 得 到 了 进 
一 步 的 推进 。 


0.2 Maple 倘 介 


Maplje 人 全 Rundpiyoyeoss 最 初 是 作为 加 拿 大 
Waterloo 大 学 和 琐 士 ETH Zurich 大 学 的 一 个 合作 科研 项 目 , 于 1980 年 由 Keith 
Geddes 教 授 和 Gaston Gnnot aasepipiis 本 了 后 来 又 被 开发 为 商业 软件 ,并 且 专 门 
成 立 了 Maplesoft 公司 负责 Maple 软件 的 开发 和 销售 。 与 其 他 数学 软件 相 比 ,Maple 
的 优势 在 于 其 强大 的 符号 计算 能 力 。Maplesoft 公司 积极 赞助 符号 计算 的 各 种 国际 
性 学 术 会 议 , 及 时 将 新 出 现 的 高 效 算 法 地 整合 到 Maple 的 图 数 包 中 。 有 目前 发 布 于 
2007 年 2 月 的 版 本 Maple 11( 图 0-1) ,其 功能 主要 有 : 


WaplecOft 


Manle 人 | 


村 an * Modeing * 0 lak 5 5 






1. 解决 数学 问题 


Maple 11 提供 了 约 300 多 个 任务 模板 和 4000 多 个 数学 图 数 来 解决 常见 的 数学 
问题 ,涵盖 了 微 积分 、 线 性 代数 、 微 分 方程 ,几何 ` 群 论 `, 数 论 ` 图 论 ` 组 合 `. 运 蚕 、 优 化 、 
概率 、 统 计 等 诸多 领域 。 其 中 既 包括 无 误差 的 符号 计算 ,也 包括 高 精度 的 数 伍 计算， 
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以 及 二 维 、 三 维 绘图 。 函 数 调用 简单 ,用 户 可 以 像 使 用 计算 器 一 样 地 使 用 Maple。 
2.， 生成 科技 文档 


x* .mw 格 二 的 Maple 文档 可 以 将 文本 文字 数学 公式 声音、 图 像 等 内 容 组 合 在 
一 起 ,生成 具有 多 媒体 效果 的 专业 科技 文档 。 文 档 中 还 可 以 包含 按钮 、 滑 块 . 列 表 杠 
等 交互 式 组 件 , 用 户 可 以 改变 参数 ,重新 计算 结果 。Maple 还 提供 诸如 版 面 设计 、 拼 
与 检查 之 类 的 编辑 命令 ,用户 可 以 像 使 用 文字 编辑 软件 一 样 地 使 用 Maple。 


3. 应 用 程序 开发 


Maple 征 一 种 面 问 对 象 的 高 级 编程 语言 ,有 着 严格 的 语法 。 针 对 不 同 硬件 ， 
Maple 提 供 了 经 过 优化 的 库 函 数 。Maple 还 是 一 个 图 形 化 的 软件 开发 平台 ,用 户 可 
以 方便 地 编写 .调试 程序 ,生成 自己 的 函数 包 , 从 而 将 Maple 的 功能 扩展 。 内 容 丰 富 
的 联机 文档 和 帮助 系统 更 是 受到 了 用 户 的 欢迎 。 


4， 辅助 教学 工具 

针对 大 学 教育 这 一 市 场 ,Maple 专门 提供 了 Student 函数 包 来 帮助 学 生 自 学 数 
学 诛 程 ,加 深 对 数学 概念 的 认识 。 其 内 容 包括 微 积 分 预 修 课 . 单 变 量 微 积分 .多 变量 
向 积分 、 回 量 微 积 分 、 线 性 代数 .数学 辞典 、 绘 图 计算 器 .Maple T.A, 等 。 给 学 生 提 供 
了 谎 后 的 教学 助教 ,教师 也 可 以 从 中 发 现 比 较 好 的 课件 。 


0.3 初 识 Maple 
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”或 者 运行 | 靶 Classic Worksheet Maple 11(cwmaple. exe) ,进入 传统 的 工作 
表 模 式 窗口 (图 0-3)。 


-~- Euntitlied 人 (人 = Serwer 





有 人 lx 
泡 2 5 2 2 全 有 的 






国 帮 二 


。 对 于 其 些 用 户 ,也 许 他 们 更 偏爱 Command-line Maple 11(Ccmaple. exe) 屠 
朴实 无 华 的 命令 行 模式 窗口 (图 0-4)。 


上 Command-Line 年 aple 1 


-一 一 ~ -一 一 -一 一 一 一 一 -一 一 一 一 一 一 一 -一 一 一 一 -一 一 一 -一 -- 一 -一 -一 -一 一 -一 --- 


图 0-4 


用 户 输 入 命令 或 田 数 后 , 按 Enter 键 执行 表达 式 计 算 。 看 命令 很 长 , 则 可 在 输入 
过 程 中 按 下 Shift 十 Enter 键 将 命令 分 成 在 干 行 。 在 工作 表 模 式 下 ,表达 式 必 须 以 冒 
号 “:? 或 分 号 "; ”结尾 ,否则 程序 出 错 ; 而 在 文件 模式 下 , 则 不 需要 如 此 。 如 图 0-5， 
图 0-6 所 示 。 

下 面 我 们 以 例题 为 载体 ,从 中 了 解 Maple 的 功能 。 在 Maple 语句 中 ，“ 井 ”及 其 





所 在 行 后 面 的 部 分 为 注释 说 明 语句 。 


[Serwer 1] . 队 


12<1932631112635269 








RPROYRPOPECRRPOPRRRRRRNRRRRRR ER 这 关 





> 123456789x*987654321 En CR 5 
2 


Warning，Dpremature end of input 


0-6 


FT 
二 二 


【 例 1】 计算 9”。 

> 9”99 ; 
295o1266543065275214875348022619773631435927251704383288 
00603884637676943433478020332709411004889 


【 例 2】〗】 因 式 分 解 娃 十 2z3 一 13z2 一 14z 十 24。 
> factor(Cx 4 十 2x* x3 一 13 x x2 一 14x xx 十 24) ， 
人 


【 例 3】 展开 多 项 式 ( 袜 一 1)(y 一 1)3。 
> expand((x 2 一 1) <*(y 一 1)"3); # 不 要 忘 了 输入 两 个 括号 之 间 的 乘 号 
2 一 3 十 3 到 一 十 3 一 3 
【 例 4】 计算 133 和 627 的 最 大 公约 数 和 21,35,45 的 最 小 公 倍 数 。 
> gcd(133 ,627) ; 
19 
secmk2135 .6575 
3j19 


1]11 


〖【 例 5】 计算 和 式 方 / 靖 一 ] . 


> add(2 * 上 一 1，k 王 1..111); 
12321 
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【 例 6】 计算 和 式 > ,及 。 
六 一 1 
> Sum(k-3 ， 攻 一 1. .ny) ; 
天 (2 十 1] 一方 C2 十 D)? 十 二 (mn 十 1 


2 十 y 一 ] 


并 一 yy 一 


【 例 7】 求解 线性 方程 组 | 


> solve((42 x* X 十 y 一 ]， X 一 y 一 51 ， (和 yy ); 
(yy 一 一 3， 工 一 2) 





、 小 万 
【 例 3】 计 鼻 村 二 | SIn(Z) ) 
> diff(x/sin(x)，X 和 4) ; 
24cos(z)3 20cos(z) ，24zcos(Z) 28zcos(Z) 
Sin() sin(Z)- Sin( 和 7 sin) 





【 例 9] 计算 | -dz 


ZL 一】 
> IntCXACX 4 一 1)，X) ; 
二 nz 一 D) 十 二 In(z 十 D 一 二 In(z 十 1) 
疡 『 过 
【 例 10〗 计算 | | ( 巡 十 交 )dzdy 。 
> int(Cint(x 2 十 Y2,y 一 c. . d) ,Xx 一 ab); 


二 (qd 一 <) (下 一 0 十 去 d (6 一 中 一 去 c (5 一 oa) 


1 2 3 
【 例 11〗】 计算 矩阵 4=j2 1 3| 的 特征 值 和 特征 四 量 。 
1 2 3 


~A: 一 Matrix([11,2,3],[2,1,3],[1,2,3]]); 


1 2 3 
1 2 3 


> LinearAlgebra : 一 Eigenvectors( 人 ) ; 


D 信 
SinGCZ) 
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【 例 12】〗 计算 例 11 矩阵 A 的 1- 范 数 | 外 Ali。 
> LinearAlgebra : 一 MatrixNorm(A ,1); 
9 


【 例 13】 画 出 /zc 一 sin(Cz) 一 1 在 区 间 L 一 7 ,7 上 的 图 像 ( 图 0-7)。 
> plot(Cxz2 < SinCX) 一 1，X 一 一 7..7); 


30 


20 


-30 
0-7 


过 一 3cos21 十 4cos37 


,和 L0,27r| (网 0-8) 。 
y 一 3SIn2r 一 4SIn3t -0,2r( 图 


【 例 14】 画 长 幅 内 次 摆 线 ; | 


> plot(L3x cos(2xt) 十 4xcos(3xt),3xsSn(2xt) 一 4x*Sin(3 关 t),t 一 0. .2x 
Pi |); 





【 例 15〗】 画 出 f(z,y) 王 zyerc + 在 zxE[ 一 2,2],yE[ 一 2,2] 上 的 图 像 
(图 0-9) 。 
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> 了 Oot3QCXS EX 一 区 2 一 六 2) 一色 2)y 一 一 2 .27， 










-0.1 0 
省 这 on 
几 ， 00 O 必 
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0.4 犹 取 天助 


在 Maple 中 ,用 户 有 多 种 方法 获得 帮助 。 本 节 中 意 在 提供 获取 帮助 的 方法 和 途 
径 , 其 效 末 取决 于 个 人 的 尝试 。 部 分 例题 放 在 第 8 章 中 。 请 注意 ,文件 模式 和 工作 表 
合式 下 的 帮助 形式 并 不 完全 相同 。 以 下 部 分 的 帮助 只 在 文件 模式 中 有 效 。 


1. 帮助 荣 单 (Help Menu) 


几乎 所 有 的 Maple 联机 帮助 信息 
邦 可 以 在 Help 菜单 中 找到 。 对 其 中 
一 些 常 用 的 集 单 项 ,Maple 还 提供 了 快 
捷 键 。 例 如 : 按 Fl 键 , 将 会 弹出 快速 
帮助 窗口 (图 0-10) 。 将 光标 停 于 需要 
帮助 的 词句 处 ,然后 按 下 F2 键 , 将 会 
显示 出 Maple 关 于 此 词句 的 所 有 帮助 
主题 。 按 Ctrl 十 Fl 键 , 将 会 弹出 主 帮 
助 窗 口 ( 图 0-11) 。 
通过 左边 的 目录 表 , 用 户 可 以 找到 
相应 的 帮助 主题 。 按 Ctrl 十 F2 键 , 将 
会 弹出 快速 参考 窗口 (图 0-12)。 0 
图 0-10 


快速 帮助 
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2。 快捷 菜单 (Context Menu) 


在 Maple 工作 区 域 的 任何 位 置 , 按 鼠标 右键 ,都 会 弹出 一 个 菜单 。 在 不 同位 置 ， 
该 沫 单 的 内 容 也 不 完全 相同 ,这 种 沫 单 称 为 快捷 菜单 或 上 下 文 菜单 。 

例如 :我 们 输入 

3 BiotSdCR2 一 交 2 一 17 一直. 15 

国 抛 物 双 曲面 如 图 0-13。 用 鼠标 右键 单 击 图 像 ,弹出 如 图 0-14 的 绘图 菜单 。 而 
右 击 plot3d 霹 句 , 则 弹出 如 图 0-15 的 全 单 , 此 沫 单 包 含有 不 少数 学 函数 和 常用 的 
Maple 命令 ,以 方便 用 户 输入 。 





图 0-13 图 0-14 
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Maple 11 捉 供 了 大 量 的 过 程 和 命令 ,统称 为 库 晒 数 。 
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文件 模式 窗口 和 工作 表 模 式 窗口 的 
上 下 文 菜单 有 所 不 同 ,文件 模式 窗口 的 
上 下 文 菜单 的 内 容 比 工作 表 模式 窗口 的 
更 丰富 。 


3. 工具 莱 单 (Tools Menu) 


在 菜单 项 “工具 一 分 析 助 手 ” 中 ,用 
户 可 以 发 现 一 些 有 用 的 辅助 程序 ;在 菜 
单项 "工具 一 向 导 ” 中 ,用 户 则 可 以 轻松 
地 幸 用 晒 效 包 student 中 的 大 量 郴 数 。 


4. 在 行文 中 获取 帮助 


对 于 俩 爱 Command-line Maple 的 
1 他 们 获得 联机 帮助 的 唯一 途 
径 是 ? 命令 或 Help 命令 。 此 命令 也 适 
用 于 文件 模式 和 工作 表 模 式 

例如 :键入 

5 Sin 
或 

> help(Csiny) ; 
则 打开 帮助 窗口 ,显示 三 角 函 数 的 用 法 
和 例子 。 


S. 网 络 资 源 


访问 Maplesoft 公司 的 官方 网 站 
“http: 人 www. maplesoft. com” 来 获取 
天 于 Maple 的 最 新 更 新 .用 户 文 答 和 撤 
术 文 持 等 。 


库 晒 数 和 盯 数 包 


这 些 男 数 束 位 于 主 库 


(maple. mlja) 和 13 个 田 数 包 Calculator. mla, CodeGeneration. mla, ContextMenu 


绪 论 11 


mla, Differential Geometry. mla,InstallerBullder. mlja，Maplets. mlja，MmaTransla- 
tor. mla，(Optimlzation。 mla，Physlics. mal，scandsea. mla，Statlistics。 mla，Student. 


mlavunits. mla 中 。 主 库 包含 绝 大 多 数 的 常用 数学 函数 , 当 Maple 启动 的 时 候 , 主 库 
内 的 函数 被 自动 加 载 ,供用 户 直接 调用 。 例 如 ,计算 积分 | sinzdz ,由 于 int 函数 属 


于 主 库 困 数 , 直 接 调 用 int(Csin(x) ,x) 即 可 。 
图 数 包 中 的 困 数 ,不 会 被 自动 加 载 ,需要 通过 with 命令 或 use 霹 句 来 调用 。 在 
Maple 中 ,有 3 种 方式 可 以 调用 图 数 包 中 的 男 数 。 


1，with 命令 
with 命令 的 篆 见 用 法 有 : 


with( 函 数 包 ) 油 用 函数 包 中 的 所 有 函数 
With( 函 数 包 [ 子 函 数 包 ]) ， ae 调用 子 函 数 包 中 的 所 有 函数 
。 with( 函 数 包 ,函数 ) 调用 函数 包 中 的 特定 函数 
With( 卫 效 包 [ 子 函数 包 ]， 了 数 ) 调用 子 函数 包 中 的 特定 函数 


【 例 16】 画 圆 心 为 (1,1) 半 径 为 2 的 红色 实心 圆 (图 0-16)。 

画 圆 函数 disk 在 函数 包 plottools 中 ,图像 显 示 函 数 display 在 因数 包 plots 中 。 

> with(Cplottools ) ; 

| arc，arrow，circle，cone，cuboid，curve，cutin，cutout，cylinder，disk， 
dodecahedron，ellipse，ellipticArc，hemisphere，hexahedron， homothety， hyperboljla， 
icosahedron ，line，octahedron，paralleleplped，Ppleslice，point，polygon，Prolect， 
rectangle，reflect，rotate，Sscale，semitorus，Sphere，stellate，tetrahedron ，torus， 
transform，translate，vrml | 

> with(Cplots) ; 

| animate，animate3d，animatecurve，arrow，changecoords，complexplot，com- 
plexplot3d，conformal，conformal3d，contourplot，contourplot3d，coordplot，coord- 
plot3d，densityplot，display，fieldplot，fieldplot3d，gradplot，gradplot3d，graph- 
plot3d，implicitplot，implicitplot3d，inequal，interactive，linteractlveparams，lnter- 
sectplot， listcontplot， _ listcontplot3d，_ listdensityplot， listplot， lstplot3d， 
loglogplot，logplot，matrixplot，multiple，odeplot，pareto，plotcompare，Ppointplot， 
polintplot3d， polarplot， polygonplot， polygonplot3d， polyhedra_supported， 
polyhedraplot，rootlocus，semilogplot，setoptions，setoptions3d，Sspacecurve，Sparsema- 


trixplot，surfdata，textplot，textplot3d，tubeplot | 
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> dsplay(Cdisk(L1,1]j,2,color 一 red) )， 
3 2 








Cr 大 


图 0-16 


2。use 语 铝 


use 二 句 的 一 








5 Wi 让 
1 过 


【 例 17】 演示 单 变 量 微 积 分 的 中 值 定理 (图 0-17)。 


> tudent : 一 Calculusl : 一 MeanValueTheorem(Cx2 一 x，x 一 0 2,output 一 plot) ; 


The Mean Value Theorem Appliedto 
{f(X) 王 X^2-X 
on the Interval [0, 2] 





3. 直接 引用 函数 包 





【 例 18】〗】 产生 二 阶 随 机 整数 矩阵 。 


绪 论 
> LinearAlgebral RandormIMatrix |(2,2); 
44 一 31 | 
92 67 
此 语 可 与 LinearAlgebra : 一 人 RandomMatrix(2,2) 有 着 相同 的 效果 。 
表 0-1 列 出 了 部 分 常用 的 图 数 包 以 供 参考 。 
表 0-1 部 分 弟 用 函 数 包 


函 数 包 说 明 
ArrayTools 效 组 处 理 
AudioTools 首 频 处 理 
combinat 组 合 效 掌 
CurveEitting 曲线 拟 合 
DEtools 向 微 分 方程 
DiscreteTransforms 离散 Fourier 变换 
Domain 整 环 
FileTools 文件 处 理 
finance 金融 
geom3d 立体 几何 
geometry 平面 几何 
Groebner 计算 Grobner 基 
grouP 群 论 
ImageJools 图像 处 理 
IntegrationToojs 人 符号 积分 
inttrans 积分 变换 
LibraryTools 跑 数 库 处 理 
LinearAlgebra 线性 代数 
[ist 工 ools 列表 处 理 
LOgic 迎 辑 
L_ REFtools 线性 递归 方程 求解 


MatrixPolvynomialAlgebra 多 项 式 和 矩阵 运算 
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蝎 数 包 说 了 明 
networks 图 网 络 
numapPIOX 数值 过 近 
numtheory 数论 
(Jpttmlzatlon 优化 
(OrthogonalSeries 正 交 多 项 式 
PDEtools 侦 微 分 方程 
plots,plottools 给 外 
PolynomialTools 多 项 式 
pPOwsSerles 帮 级 数 
RandomTools 生成 随机 数 
RootFinding 方程 求 数值 根 
sirnplex 单纯 形 
SNAP 混合 计算 
SolveTools 方程 求 代数 解 
Statlstlcs 统计 
StringTools 字符 串 处 理 
Student 大 学 数学 教学 包 
Student[Calculusl ] 大 学 数学 一 单 变量 微 积 分 
Studentl LinearAlgebra | 大 学 数学 一 线性 代数 
Student| MultivariateCalculus | 大 学 数学 一 多 变 量 微 积 分 
Student| Precalculus 大 学 数学 一 微 积 分 预 修 课 
Studentl| VectorCalculus | 大 学 数学 一 向 量 微 积 分 
sumtools,SurmToois 级 数 求 各 
VariationalCalculus 变 分 法 


VectorCalculus 回 量 向 积分 
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1].1 数 与 数 的 表示 


1.1.1 简单 数值 类 型 
Maple 的 简单 数值 类 型 有 整数 有理数 .实数 和 复数 ( 表 1-1)。 
表 1-1 简单 数值 类 型 


integer 任意 长 度 整 数 

faction 既 约 分 数 

Hoai 任意 精度 小 数 

complex 实 部 和 虚 部 可 为 整数 有理数 .实数 


32 位 统 中 ,至 舍 2 一 17 个 字符 ; 
String Helljoe，Wworldl 在 32 位 操作 系统 中 ,全 多 包 人 名 子 得 


在 64 位 操作 系统 中 ,至 多 包含 25 一 33 个 字符 

整数 Cinteger) 由 奋 干 个 0 到 9 的 数字 组 成 ,数字 之 间 不 能 有 空格 .逗号 和 其 他 字 
符 , 正 负 号 放 在 整数 的 首位 ,输入 时 正 号 可 省 略 不 写 。 只 要 内 存 人 允许, 原则 上 Maple 
可 以 表示 任意 长 度 的 精确 整数 ,不 党 所 用 计算 机 的 字 长 限制 ,实际 上 受 控 于 计算 机 的 
内 存 容 量 。 整 数 与 整数 的 运算 结果 仍 是 准确 的 整数 或 有 理 数 。 例 如 :3 的 123 次 方 
为 59 位 十 进 制 整数 。 

整数 还 可 细 分 为 : 负 整 数 (negint) 、 正 整数 (posint) . 非 负 整 数 (nonnegint) . 非 正 
整数 (nonposint) .偶数 (even) 和 奇数 (odd) 。 
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〖【 例 1】 整 效 运算 。 
> 3 123; 
48519278097689642681155855396759336072749841943521979872827 

> length(%); # 给 出 上 一 次 输出 的 位 数 ,% 表 示 上 一 次 输出 

59 
> kernelopts(maxdigits); 井 查看 本 系统 整数 的 最 大 位 数 

268435448 

> is(12347，prime); 井 12347 是 否 为 系数 

true 
> convert(12,binarv); 井 转化 为 二 进 制 数 

1100 
> convert(17 ,octal) ,convert(17,hex); 井 转化 为 八进制 .十 六 进 制 数 

2],]] 


有 理 数 (fraction) 也 是 符号 计算 系统 的 数据 成 员 。 有 理 数 是 准确 数 。 当 两 个 束 
数 相 除 而 又 不 能 整除 时 ,系统 就 用 有 理 数 来 表示 。 例 如 :所 。 输 入 时 ,我 们 用 分 子 /分 
母 的 形式 ,用 除 号 隔 开 分 子 与 分 母 ,在 文件 模式 窗口 下 ,如 果 输 入 "x/" 则 显示 为 分 子 


在 上 分 母 在 下 的 形式 “二 ”输出 时 ,系统 对 分 数 做 可 能 的 自动 化 简 , 约 去 分 子 和 分 母 
的 公 因 子 , 再 用 化 简 过 的 分 式 形式 输出 。 有 理 数 之 间 的 运算 绪 果 仍然 是 准确 的 有 理 
数 或 整数 。 


【 例 2】 分 数 运算 。 
> 123/1456 十 5677789; 


39o511 
39976 


用 数 eval{ 或 value 将 整数 或 有 理 数 转换 为 实数 。 
> evalf(12 二 27/3 一 3a); 
12. 66666667 十 C 


实数 (float) 是 用 浮 点 数 表 示 的 ,Maple 中 的 实数 可 取 任 意 位 的 有 效 位 数 ,默认 人 
取 小 数 点 后 10 位 有 效 数 字 。 这 是 一 种 具有 任意 精确 度 的 近似 实数 。 计 算 中 志 可 以 
保持 和 控制 实数 的 精度 。 输 入 时 实数 有 两 种 表示 方法 :一 种 是 小 数 形 式 ,例如 :. 679， 
0. ,一 1234. 6 都 是 合法 的 小 数 ; 另 一 种 是 指数 形式 即 科 学 记 数 法 ,例如 :0. 1234e5 表 
示 123450. 。 

实数 可 以 和 整数 .有 理 数 混合 计算 ,其 结果 仍 是 一 个 实数 。 
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【 例 3】 实数 运算 。 
> 1 十 17/2 十 0. 3; 
1. 3800000000 
> ded, 1 . 3EL3 ,一 .3e 一 3; 
30U00.，1300. ， 一 0. 0003 
> convert(0. 123456789 ,fraction); 井 小 数 转换 为 分 数 


1320659 
10988938 


> fioat( 1， 3， 一 D) ; 
0. 00001] 3 


复数 (compjlex) 由 实 部 和 虚 部 组 成 。 实 部 和 虚 部 可 用 整数 .有 理 数 和 实数 表示 。 
在 Maple 中 ,大 写字 母 [ 表示 虚数 单位 v 一 1。 


【 例 4】 复数 运算 。 
> sqrt( 一 9) ,exp(3. 十 7 x 工 ) ; 
3I，15. 14253157 十 13. 19592859I 
>X: 一 SIn(C1. 1 十 2.2 关 工 ); 
x : 一 4.070953523 十 2.0217256181 
> ReCx),ImCx); # 取 x 的 实 部 和 虚 部 
4.010953523，2.021725618 


字符 绅 (string) 是 用 双 引 号 引起 来 的 字符 序列 , 函数 包 StringTools 中 约 有 180 
个 有 关 字 人 符 串 操作 的 命令 供用 户 使 用 。 

【 例 5】 字符 串 运 算 。 

>ta: 一 abc :tb: 王 “Xyz":， cat(taytb); 


“abcxyz- 
1.1.2 数学 第 数 


人 在 Maple 中 已 经 定义 了 一 些 数学 常数 ( 表 1-2)。 例 如 :圆周 率 x, 无 穷 大 ce , 欧 拉 
前 数 y 等。 命令 constants 可 显示 出 这 些 常数 。 数 学 常数 可 以 直接 用 在 公式 推导 中 ， 
Maple 中 的 数学 前 数 都 是 准确 数 ; 用 于 数值 计算 的 数学 常数 可 以 取 任 意 精 度 。 函 数 
包 >cientificLConstants 中 则 定义 了 更 多 的 物理 、 化 学 常数 。 系 统 也 允许 用 户 添 加 自 定 
义 的 负 数 。 
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表 1-2 ”数学 常数 
常 数 说 明 
、 、 浊 类 NT (一 1 六 . 
Catalan Catalan 常数 之 。 CT 人 0.915965594 
false,true 逐 辑 但 假 、 真 
FAIL 不 能 确定 真 假 的 逻辑 但 
gamma 或 y 了 欧 拉 常数 lim > ， 二 一 InCn) > 0.5772156649…， 
Mr 
虚数 单位 v 一 1 
Infinity 或 ce 无 私 大 
Pi pi 或 x 圆周 率 (pi 用 于 符号 计算 ,Pi 用 于 数值 计算 ) 
undefined 不 确定 值 CMapte 的 保留 字 之 一 ) 


【 例 6】 有 关 的 数学 贡 数 。 
> CoOnstants 

false，y,co，true，Catalan， 下 AIL，x 
> [Pi 十 1/3,evalf(Pi 二 173)j; 井 输入 Pi 运行 后 显示 为 


| r 十 志 ， 3. 474925987 | 


> evajlf(pi 十 1/3);， 井 evalf 对 pi 无 效 
十 0. 3333333333 


1.2 变 量 


1.2.1 给 变量 取 名 


Maple 的 变量 名 由 标识 符 表示 ,标识 符 以 字母 开头 ,后 跟 字母 .数字 或 下 划 线 , 恋 
量 名 的 字符 长 度 不 限 。 例 如 :AbCdEfiGhIHJK ,Win32,AABC,XY_Z 都 是 合法 的 变量 
名 ;而 2t 和 uv(Cu 与 之 间 有 一 空格 ) 不 能 作为 变量 名 。 变 量 名 中 类 文字 母 大 小 与 
意义 不 同 , 因 此 A 与 a 表示 两 个 不 同 的 变量 。 例 如 ,用 户 可 用 大 写字 母 A 表示 算 阵 
变量 ,用 小 写字 母 a 表示 和 矩阵 元 素 变量 ,通常 按 数学 表示 习惯 给 变量 取 名 。 

如 果 要 用 和 希腊 字母 作 变量 名 ,输入 希腊 字母 的 英文 名 称 , 或 展开 “ 硕 胶 字母 " 面 
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> alpha : 一 pi 十 12; as | 
au : 一 区 十 12 | A 也 T A 了 上 ZI| 

请 不 要 用 Maple 中 的 函数 名 和 保留 字 作 变 量 1HBGIKAMI 
名 ,如 sin,and,if,fi,od 等 。 如 果 你 误 用 了 Maple 的 
保留 字 , 系 统 会 给 出 相应 的 提示 。 

效 信 有 类 型 ,变量 也 有 类 型 。 在 Maple 中 变量 随 取 随 用 ,通常 在 运算 中 不 需要 
对 变量 进行 类 型 说 明 , 系 统 根据 你 对 变量 所 赋 的 值 会 做 相应 的 处 理 。 在 定义 函数 和 
程序 设计 中 也 人 允许 对 变量 进行 类 型 说 明 。 这 部 分 内 容 请 看 第 7 章 。 





| 


1.2.2 给 变量 赋值 


在 和 和 人 一 生 和 ， 





ee 再 将 计算 结果 赋 给 左边 的 变量 。 如 果 冉 值 语 
人 名 以 冒号 结尾 则 不 显示 计算 结果 ;以 分 号 结尾 (工作 表 模 式 ) 或 空白 (文件 模式 ) 则 显 
示 计 算 结 采 。 

Eeesisaloaiinrevussaaisas El naSSi 二 


要 对 多 个 人 加 时 虹 信 . 可 将要 





【 例 7】 变量 赋 仁 。 
SS 8vbvcs 王 1 


sp 2Oo33 
> X :一 1]l]:y: 王 22:7 :一 33: 
> (ayb,c) : 一 (bc,a); 间 3 个 变量 的 数值 交换 
05056 2 一 20v33 外 ] 
> A :一 Matrix(||1,2 | ,|3,4||); 


20 符号 计算 系统 Maple 教程 





一 个 表达 式 可 占 一 行 或 多 行 。 按 shift 十 Enter 键 实现 续 行 。 
> abcde : 和 112233445566778899998877665544332211 
十 sin(12345) ; 
aocde : 二 112233445566778899998877665544332211 十 sin(12345) 


1].2.3 变量 替换 


2 


AN 
变量 蔡 换 的 一 般 形式 为 : 
0 










党 疝 汉 和 RE 人 0 
计 沁 生 : 7 MT 了 二 

SS 村 2 er 0 并 : 

人 0 全 人 本 全 
2 RN 人 人 本 芝 


Am 


【 例 8〗】 变量 和 表达 式 蔡 换 。 
> Subs(Xx 一 1,Xx 十 1); 


> Subs(a 王 1 十 x,b 一 2 一 y,(a 十 b 十 c)*2) ; 
元- 一 沾 e0 
> Subs(a 十 b 王 1,sin(a 十 b 十 c)); 井 subs 的 功力 不 够 ,需要 用 代数 替换 algsubs 
sin(& 十 0 十 c) 
> algsubs(a 十 b 王 1,sin(a 十 b 十 cy) ) ; 
SIRCL -CC) 


1.3 上 困 效 和 调用 


1.3.1 第 用 初等 数学 函数 


在 任何 一 种 高 级 语言 中 ,都 有 abs(z) sqrt(Cz) 和 sin(Z) 等 初等 数学 困 数 ,调用 
时 实在 参数 z 只 能 是 数 。 在 符号 计算 语言 中 ,初等 函数 的 实在 参数 可 以 是 表达 式 ， 
印 可 为 整数 .小 数 、 复 数 . 符 号 和 带 运 算 符号 的 表达 式 , 计 算 结 果 为 数值 或 函数 表达 
却 。 本 小 节 中 列 出 部 分 初等 数学 函数 的 一 般 用 法 ( 表 1-3) ,并 以 数值 计算 为 侧重 点 ， 
更 详细 的 内 容 请 看 2. 5. 1 小 节 。 
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表 1-3 ” 旬 用 初等 数学 函数 


呈 数 说 明 
abs(z) 实数 绝对 值 或 复数 的 模 
argument(2z) 复数 辐 角 
conjuagtefz) 共 忽 复数 
Re(z) ,Im(z) 复数 的 实 部 . 虚 部 
factorial(n) 阶 磁 ?21 
GAMMA(Cx) Gamma 羡 数 下 (z) 
x1 阶乘 或 Gamma 函数 (zx 十 1) 
Xy 7 
exp(x) er 
ln(x) 或 log(x) 自然 对 数 
log10(z) 常用 对 数 
log[| b jx) 以 为 底 的 对 数 
sqrt(X) 平方 根 
ceil(x) 不 小 于 并 的 最 小 整数 
floor( xy) 不 大 于 xz 的 最 大 整数 
round(X) 四 舍 五 人 取 整 
trunc(X) 取 > 的 整数 部 分 
frac(x) 取 z 的 小 数 部 分 
gcd(a,b) 整数 或 多 项 式 的 最 大 公 因 式 
lcm(al,a2,…… an) 整数 或 多 项 式 的 最 小 公 售 式 
max(al,a2,……,an) 选取 最 大 值 
min(al,a2,……,an) 选取 最 小 仁 
rand( ) 随机 整数 
randomize( ) 初始 化 随机 数 生成 
To Eus 
反 三 角 图 数 


arcsin(X) ,arccsc(Xx) ,arccos(X) ， 


arcsec(X) ,arctan(x)yarccot( 广 ) 
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续 表 
明 数 说 明 
sinh(x) ,cosh(Cx) ,tanh(Cx) ， 
双 曲 盟 数 


csch(x) ,sech(Cx) ,coth(x) 


arcslinh(x) ,arccsch(Cx) ,arccosh(Cx) ， 


反 双 曲 困 数 


arcsech(x) ,arctanh(Cx) ,arccoth(x) 


【 例 9】 初等 数学 函数 。 

计算 135,279 和 468 的 最 大 公约 数 和 最 小 公 倍 数 。 

> gcd(Cgcd(135,279) ,468) ,lcm(135,279,468) ; 
9,217620 


计 天 工本 二 玉 丰 。 
EL 1 二 到 过 瑟 

1. 277666818 十 0. 86094432831 
> round(8/3) ,cell(8/3) ,frac(8/3) ; 


L 
3 3， 3 


> floor(8/3) ,trunc(8/3) ; 
2 
3 二 nekt6s 25 Enc60. 5) tanc( 一 6 20ytronet 一 9) 
6 一 8Qv 一 0 
> trunc(5. 6 十 7.8x* JTJ) ,round(5. 6 十 7.8x*JJ; 井 分 别 对 实 部 和 虚 部 调用 函数 
| 
> Seq(Crand() ,1 一 1. .4); 
773012980023,730616292946 ,106507053657 ,396412723003 


1.3.2 自 定 义 函 数 和 调用 


1. 函数 定义 


本 厂 只 傈 单 介 绍 果 数 定义 和 调用 ,关于 盟 数 定义 和 调用 的 更 详细 内 容 , 请 看 第 
7 草 。 
箭头 运算 符 ”-> "是 定义 图 数 的 专用 运算 符 


WO 人 OO 





避 二 


,定义 盟 数 的 一 般 形 去 : 


人 > 志 = 5 人 
2 2 亲 ss 2 本 sse 人 ， 本 已 了 SF 5 交 2 AR 克 光 
1 - Sr PR 2 TCR 7 本 2 7 如 2 -C 允 水 
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注 : 变 量 或 变量 序列 相当 于 融 级 语言 子 程序 中 的 形式 参数 。 


【 例 10】 定义 图 数 所 z) 三 性 十 1 ,并 计算 /2)。 
> 于 :一 X>x2 十 ]; 


了 三: 一 > 十 | 
> 攻 2) 
9 ， 
定义 二 元 图 数 g(Cryy) 一 过 一 y 十 y 计算 (3，2)。 
>>g 一 (XIYy) -> X 一 yy 十 滩头 允 
5 二 (ZXyy) 一 和 一 yy 十 y 
> gC3，2); 


的 
>h: 王 X->[x 二 1,2x*x，x3]; 间 定义 的 果 数 值 可 以 是 一 列表 
六 : 一 工 >| Z 十 1.2xzz3 


> 上 hCG5); 

6,.10,2<5 
>Pp :一 X 一 ]; 

访 : 一 并 一 j 
> 插 : 一 unapply(Cpy,x); 

了 三: 一 一 一] 
> 尾 (107) 
9 


> SS 一 (xyyZ) -> 〈(X 十 y，Yy 一 Z); 
一 (CTyyyz) 一 个 yy 一 驻 
> SC6,3， |) 
9 2 


2。 函数 调用 


在 调用 肯 数 时 ,将 形式 参数 换 成 实在 参数 。 系 统 图 数 和 有 用户 定义 的 田 数 都 锌 多 
许 能 套 调 用 。map 霹 句 也 起 着 困 数 调用 的 作用 。 


【 例 11】 调用 郴 数 。 
:一 X>X2; 
三: 一 > 
>g :一 (Xy)->X 十 Yi 
5 :一 (yy) 一 人 十 Y 
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> 攻 攻 2))》 井 般 套 调用 


16 
> gft(2),g(3,{(4)));， 井 多 层 和 套 调用 

2 
【 例 12】 用 map 语句 调用 函数 。 
坟 DT 于 区 尖 
> Date 和 

了 
3 

2 
> map(hy,yxz); 
ACyY) 太 (之 ) 
DC 
4ACZ) CO),ACc)) 


2 18DChs|L as 训 e| ， 奖 y7》， 
La 元) 请 (Ozyy) Co | 


1.4 构造 性 数据 类 型 


].4.1 表达 式 序 列 (Cexprsed) 


表达 却 订 列 ( 简 称 序 列 ) 是 Maple 的 一 个 数据 类 型 。 序 列 的 元 素 用 逗号 操作 符 
连接 ,可 以 直接 将 序列 赋值 到 一 个 变量 中 。 逗 号 操作 符 是 所 有 操作 符 中 优先 级 别 最 
低 的 操作 符 。 我 们 会 在 多 种 数据 类 型 中 见 到 它 。 序 列 的 一 般 形 式 为 : 

表达 式 . 1, 表达 式 2 表达 式 a 
可 用 上 男 数 seq 构造 数值 或 困 数 序列 。 例 如 ， 
seq(tibyi=1..n) 井 生成 序列 f17 ,82) ny) 
seq( 攻 Di 一 mn) 井 生成 序列 人 m) ,fm 十 1)，…fCn) 

命令 sed(fGp ,i 一 x) 中 的 工 可 为 集合 (set) 或 列表 (list) 。 

〖【 例 13】 赋值 或 生成 序列 。 

2 BELd5 6 
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AAA: 一 1,2,3 
六 :一 4.50,6 
>S :三 A,a'b,B; # 速 号 操作 谷 组 合生 成 新 序列 
一 ,2 和 cp,4:5，0 
> XXX 一 seq(2，i 一 1..5)， 井 工 的 但 从 1 工 到 5 
入 :一 1].,4.9,16,.25 
用 “让 " 操 作 符 访问 序列 的 元 素 , 序 列 的 下 标 从 1 开始 。 


> 和 | 3 |; 
9 
> sed(i 十 1,i 一 X); 井 定义 域 是 表达 式 订 列 
2,5,10,17,26 


> seqCSsinCPIx 1/6)，i 一 0. .6); 
人 
> seq(X| |，i 一 1..5); 
1 aa， 5 
> Seq(l， 1 一 ana ,全 ); 
人 
有 时 $ 出 现在 序列 的 运算 中 ,和 $ 也 是 构造 序列 的 运算 符 ,expr$n 表示 生成 7 
个 expr 的 表达 陈 。 
【 例 14】 $ 运算 符 。 
>A: 一 $2..5;B: 王 1,2,3$4; 
A :一 2;3,4;5 
问 :一 |,2 和 33，3 
> whattype(A); 
exprsedq 

> seq(Cdiff(x5 ,xn),n 王 1..4);， 井 计算 x5 的 1 至 4 阶 导 数 

5 太 20 三 ，60zr ，120z 
> addCdiff(x-5,x 忠 ny,n 一 1..4):，， 井 对 序列 所 有 元 素 求 和 

5 太 十 20 妃 十 60z 六 十 1207 
> Imul(CsinCn),n 一 2..4);， 井 求 序 列 所 有 元 素 乘 积 

sin(2)stin(C3)SInC4) 


1.4.2 列表 (list) 


列表 是 用 方 括号 括 起 来 的 表达 式 序 列 , 序 列 帝 作为 列表 的 元 素 , 序 列 和 列表 的 区 
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别 在 于 有 没有 方 括号 。 列 表 的 元 素 以 逗号 相隔 ,元素 的 位 置 是 有 序号 的 ,不 同 序号 元 


系 的 值 可 以 相同 ,列表 的 元 素 还 可 为 列表 。 列 表 定 义 形式 ; 








【 例 15】 列表 的 定义 和 访问 。 
> La :三 [Lseq(Cr2,i 一 1..5)]; 
生 必 :更 网 | 全 2 

> whattype(Lay) ; 

list 
2 

用 本 本本 < 是 网 攻克 本 本 :可 医 * 病 区 :二 * 届 
要 访问 列表 可 用 op 命令 或 “[] ”操作 符 。 
0 
1 
> op(3,L); # 访问 世 的 第 3 个 元 素 
L4,[L5,6],7] 
> OpP(<..3,L); # 访问 世 的 第 2 个 到 第 3 个 元 素 
L2,3],[L4, [5,6],7. 
| 
23，255 

LL3,2,1j 表 示 取 列表 工 的 第 3 个 元 素 的 第 2 个 元 素 的 第 1 个 元 素 。 
> ]L 一 ],LL 一 2j; # 工 的 倒数 第 1 第 2 个 元 素 

9 ,8 
> 工 : 王 [seq(Cxlij,i 王 1..4)]; 

| 2 | 
52 
人 
> Solve(Lx 一 六 2 一 一 2,x 十 y 一 0])， 间 列表 的 元 素 是 方程 
ty 三 一 2 一 一 2 (7 一 1 到 一 一 二 ) 


1.4.3 集合 (Cset) 


在 Maple 中 set 表示 数学 上 的 集合 ,集合 的 元 素 互 不 相同 。 集 合 中 的 每 个 元 素 
者 是 唯一 的 ,元 素 之 间 用 逗号 分 隔 ,用 花 括号 “{})” 括 起 。 集 合 的 元 素 按 某 种 次 序 排 
列 , 通 过 下 标 访问 指定 位 置 的 元 素 。 注 意 :元素 的 位 置 会 随 着 操作 而 改变 。 集 合 定义 
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利用 的 集合 运算 函数 见 表 1-4。 
表 1-4 集合 运算 函数 
曙 数 说 明 
A unlion 号 AUB 





A insert B A 门 B 

A minus 也 A 站 FEc 
A subset 避 判断 是 否 ASCB 
member(ay,B) 判断 是 否 <cE 了 3 
evalb(A 一 B) 判断 是 否 A 王 如 
ALij] 或 op(Gi,A) A 中 第 ; 个 元 素 


【 例 16】 集合 运算 。 
> 人 :一 ta,2,a't,1,2}; 井 去 卸 重 复元 素 并 重新 排序 
《人 
汪 有 1 
9 
> A_ union B; # 计算 集合 A 和 集合 了 的 和 集 
用 
> A minus B; # 在 集合 A 而 不 在 集合 B 中 的 元 素 集合 
(1 QZ 
> B minus A; # 在 集合 也 而 不 在 集合 A 中 的 元 素 集 合 
(3，c} 
> A subset 也 ; 


false 


> conyert(La,b,c,dj,set); 井 将 列表 类 型 转换 为 集合 类 型 
人 


1].4.4 各 量 和 短 阵 


有 关 问 量 和 欠 阵 的 详细 定义 请 看 第 4 章 。 
对 于 维 数 较 小 并 具有 值 的 回 量 和 和 天 阵 可 以 直接 用 尖 括 号 构造 ,用 (|》 和 (〈，》 分 
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别 构造 行 向 量 和 列 向 量 。 请 注意 元 素 分 隔 符 “,” 和 ”| ?的 区 别 和 作用 。 通 俗 地 说 ,元 
条 遇 到 分 隅 符 "| "向 前 ( 右 ) 走 , 遇 到 分 隔 符 ” “ 问 下 走 。 例 如 ， 
> <1,2.3>;# 构造 列 阿 量 
1 
L 
了 3 
> <albljc>; # 构造 行 同 量 
[epP，c | 


2 cl ,23> |<4,5, 6> > ; 
] 4 
2 D 
3 6 


2 cl2|132>, 一 41516> > 


<<1i213> |<4|1516>> 
<<-1|1213>,<41516> ,<718|19>> 

<< ,2 3>，<<4 5 0> > 
<<1,2,3> |<4,5,6> |<7，8,9>> 


【 例 17】 和 窟 阵 和 列表 数据 绪 构 的 转换 。 
> A: 王 Matrix(2,2,| |x,yj,|z,o|j; 


~ convert(A，list ) ; 
Error，(in convett/jist) cannot convert rtable with more than one dimenslon 
having range greater than 0; try convert(A ,jistlist) 
-convert(A，listlist ) ; 
[LTryy ? | = ,oj 
convert(A，set ) ; 


My yyYyO) 
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5 率直 王 


1.5.1 算术 运算 符 和 表达 式 


算术 表达 式 由 常数 变量、 函数、 算术 运算 符 和 括号 组 成 。 凋 数 和 变量 的 尖 型 有 : 
整数 有理 数 .实数 复数、 列表 .向量 和 矩阵 等 。 胃 数 包括 系统 定义 的 晒 效 .用 尸 定义 
的 图 数 和 函数 包 中 的 曙 效 。 

表 1-5 所 示 为 Maple 中 的 算术 运算 符 , 算 术 运 算 的 优先 级 遵守 数学 中 的 习惯 : 同 
级 运算 符 遵 守 从 左 到 右 的 顺序 。 


表 1-5 ”算术 运算 符 
有 
乘 号 sxt 
/ 除 忆 myn 
于 加 号 a 十 b 


1.5.2 届 辑 表达 式 和 逻辑 运算 符 


关系 表达 式 是 最 简单 的 逻辑 表达 式 。 用 关系 表达 式 表示 一 个 判别 条 件 , 如 
xz 过 3。 关系 表达 式 的 一 般 形式 : 
表达 式 1 关系 运算 符 表达 式 2 
其 中 表达 式 可 为 数值 表达 式 、 字 符 表达 式 和 意义 更 广泛 的 表达 式 , 如 图 形 表达 
式 ， 在 实际 使 用 中 ,关系 运算 符 ( 表 1-6) 两 边 常 常 是 数值 表达 式 或 字符 表达 式 。 
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I=- 不 等 于 x! 一 y 


2 
全 一 大 于 等 于 xy 之 一 y/z 


妆 一 > 小 于 等 于 /SEE 


用 一 个 关系 表达 式 只 能 表示 一 个 判定 条 件 , 要 表示 几 个 判定 条 件 的 组 合 必须 用 
多 指 运 算 符 将 关系 表达 式 组 在 一 起 。 我 们 称 表 示 判 定 条 件 的 表达 式 为 逻辑 表达 式 。 
逻辑 表达 式 的 一 般 形式 为 : 
“关系 表达 式 1 逻辑 运算 符 关系 表达 式 2 
各 用 的 逻辑 运算 符 有 :! (逻辑 非 ), 心心 (逻辑 与 and),，| | (逻辑 或 .or), 见 
表 1-7。 





表 1-7 ”逻辑 运算 符 
逻辑 运算 符 克 明 
| 逻 各 非 。A 是 真 , 则 !A 是 假 ;A 是 假 , 则 !A 是 真 
&& 逻辑 与 。 仅 当 A 和 也 都 是 真 时 ,A&.&-B 的 值 是 真 
[| 逻 覃 或 。 当 A 或 了 是 真 时 ,Al1B 的 值 是 真 


逻辑 表达 式 取 值 : 真 (true) 和 假 (false) 。 例 如 : 
>X 一 |:y: 一 2，x<y; 
本 = 
> evalb(x<y); # evalb 是 计算 逻辑 表达 式 函 数 
true 
XUOiand y>0O; 


true 
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1.6 ”有关 表达 式 计 算 困 数 


1.6.1 访问 表达 式 成 员 










idets( 表 达 式 ,将 ) 表达 式 中 和 | 指定 型 的 变量 
ed 站 
oo 表达 式 的 第 :个 元 表 
subsop(i 一 表达 式 1, 表达 式 2》 将 表达 式 2 的 第 ; 个 元 素 替换 为 表达 


【 例 18】 访问 表达 式 成 员 。 
> expr : 一 Sin(X) x X 2 一 COSCY 十 X) 十 3; 
EX 攻关 SI 一 CoskCy 二 zz) 十 3 
> nOpDSCexpTr) ; 
二 
> 0p(2. .3,expr); 井 expr 的 第 2 一 3 个 元 北 
= 有 
> 0D(1,oD41 ,expr)) ,0OD(1 ,OpD(CLyeXxpTr) ) 
是 一 
> subsop(2 王 0,expr); 井 将 expr 的 第 2 个 元 素 置 为 零 
和 
> eXxpT; 
人 
> subsop(l 一 av 2 二 53 一 CrexprJ ， 
= 
> subsop(0 一 g,fla,b,cj),subsop(1 王 g,flLa,bycj]); 
ev 


1. 6.2 计算 函数 eval 和 value 


在 eval 后 面 加 以 不 同 的 后 缀 表明 不 同 的 计算 对 象 和 计算 要 求 。value 主要 计算 
惰性 晒 数 的 什 。 
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eval( 表 达 式 ) 计算 表达 式 的 值 
eval( 表 达 式 ,x 一 a) ， ， 计算 表达 式 在 zx 王 & 时 的 值 
evalf( 表 达 式 ) “计算 表达 式 的 浮 点 值 
ev nl 表达 式 ) 计算 表达 式 的 盖 位 有 效 数字 
evalhf( 表 达 式 ) ”硬件 计算 表达 式 的 浮 点 值 
evalb( 表 达 式 ) 计算 逻辑 表达 式 的 值 
evalm( 表 达 式 ) 计算 矩阵 表达 式 的 值 
value( 表达 式 ) 0 计算 惰性 函数 的 值 


【 例 19】 表达 式 求 值 。 
> poly : 一 x 3 十 3 x X 十 2; 

太一 
> eval(poly,x 一 1); 


> Subs(Cx 一 1,poly) ; 


> 上 :一 IntCnx xn 一 1),x)， 
尼 EE= | 妆 dz 
> valueCF ) ; 


区 
> eval] 什 20」 (3 十 cos(2) 十 sin(5) x* IJ; # 保留 20 位 有 效 数 字 
2. 5838531634528576130 一 0. 958924274663138468891] 


1.6.3 判断 表达 式 类 型 函数 


IS( 表 达 式 ,属性 ) 判断 表达 式 是 否 具有 所 述 属性 

type( 表 达 式 ,类 型 ) 判断 表达 式 是 否 具有 所 述 类 型 

whattype( 表 达 式 ) 给 出 表达 式 的 类 型 后 
其 中 表达 式 类 型 有 * (乘法 ) ,十 (加 法 )，. (点 乘 ) ,. . (区 间 )，::( 类 型 匹配 ) ,一 (小 
= 过 二 (小 于 等 于 ) ,所 >>( 不 等 于 ), 王 (等 于 ), (指数 ) ,and( 逻 辑 与 ) ,array( 数 
组 ) ,complex( 复 数 ) ,exprseq( 表 达 式 序列 ) ,extended_numeric( 广 义 数 值 ) ,float( 和 
数 ) ,fraction( 分 数 ) ,function( 辆 数 ) ,implies( 逻 辑 列 含 ) ,indexed( 指 标 )， Integer( 丽 
效 ) ,list( 列 表 ),module( 模 块 ) ,moduledefinition( 模 块 定义 ) ,not( 逻 辑 非 ) ,or( 逻 辑 
或 ) ,polynom( 多 项 式 ) ,procedure( 过 程 ) ,series( 序 列 )， set (集合 ) , string( 字 符 串 ) ， 
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symbol( 符 号 ) ,table( 表 格 ) ,uneval( 延 迟 赋 值 ) ,unknown( 未 知 类 型 ), xor( 逻 辑 异 
或 ) ,Array( 数 组 ), Matrix( 和 抢 阵 ), Vectorl column |( 列 回 量 ), Vector rowT( 行 回 
量 ) 等 。 


导 题 
1. 计算 下 列 各 趣 的 数值 。 
(1 ) 12 2008 (2 ) 6 一 昌 
(3) sin15 十 cos15- (4) log52475 
(5) ln(1 十 e 一 ) (6) vv |1lncos(C75 ) | 
] ] 
(7 ) cos{ 2arccos 了 一 arccos 让 《8 ) tan{ arctan 汉 +arctan 亿 ) 


《9 ) 12( cos :十 isin 2 | 二 4(cos 全 十 zsin 到 


计算 761,1602,3115 的 最 大 公约 数 。 

计算 49,102,147 的 最 小 公 倍 数 。 

分 别 用 subs .eval 和 value 计算 Frzy) 一 Sin 十 关 十 |zy| zz 一 1.2,y 一 0.7。 

建立 下 列 数据 序列 ,并 对 所 有 序列 元 素 求 和 。 

了 

[二 

im 生 

(3) (27 一 1 六 ,2 一 1,2，…,20 

ll] 12 13 14 

21] 22 23 24 

9， 玖 立 表 营 31 32 33 34 

41 142 143 44 


人 


《2 ) 1 2 00 


2.1 多 项 式 运算 


多 项 取 是 初等 数学 的 基本 元 素 , 在 高 等 数学 中 依然 扮演 重要 的 角色 ,如 多 项 式 插 
值 . 多 项 式 逼 近 等 。 在 Maple 中 ,多 项 式 是 由 数字 .常量 .变量 和 算术 运算 符 十 、 一 、 
*\/、 组 成 的 表达 式 。 

多 项 了 式 分 为 单 变量 多 项 式 和 多 变量 多 项 式 。 单 变量 多 项 式 是 只 包含 一 个 变量 的 
多 项 式 , 多 变量 多 项 式 包含 两 个 及 两 个 以 上 的 变量 。 多 项 式 的 类 型 名 为 polynom, 多 
项 去 中 未 知 变 量 的 指数 必须 是 非 负 整数 。 

多 项 式 是 一 类 特殊 形式 的 表达 式 , 表 达 式 中 的 各 种 运算 都 可 用 在 多 项 式 的 运算 
中 。 同 样 ,多 项 式 的 运算 函数 也 能 用 在 一 般 表 达 式 中 。 例 如 ,表达 式 的 各 种 输出 形式 
可 用 于 多 项 式 的 输出 。 

【 例 1】 多 项 式 输出 。 

>PD: 一 (X 十 10) ”5 十 (X 一 5) 3 十 87; 

访 : 二 (7 十 10 六 十 (一 5 六 十 87 
> type(p,polynom); # p 证 否 是 多 项 去 数 据 类 型 
truUe 

可 以 用 命令 indets 查看 多 项 式 中 的 未 知 变量 ,返回 结果 以 集合 形式 表示 。 

> pp :一 3x<Xxy 十 X 一 y 十 1 十 x3 xy2; 

> Indets(p); 

(yy 
> sort(p); 井 多 项 式 各 项 由 蜗 到 低 按 降 才 排列 ,与 sort(p,descending) 等 效 
友和 十 3zy 十 并 一 y 十 ] 
> sort(p,Lx,yj,ascending); 间 按 x,y 的 升序 排列 “ 
1 一 y 十 Z 十 37y 十 她 六 
> sort(p,Ly,xj,ascending); 划 按 v,x 的 升序 排列 
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1 一 
> Subs(t\x 一 ayy 一 2}),p); 井 表达 式 求 值 的 简单 方式 
= 
议 置 选项 horner, 将 多 项 式 转换 为 乘法 次 数 最 少 的 horner 多 项 式 形式 。 
> COnvert(] 一 X 十 2 * X 2 一 3x x3 十 4x* x4,horner) ， 
和 


2.1.1 多 项 式 的 分 解 和 展开 


稼 用 的 化 从 多 项 式 的 命令 有 expand( 展 开 ) factor( 因 式 分 解 ) .collect( 合 并 同类 
项 ) 和 simplify( 化 简 ) 等 。 这 些 命 令 不 仅 用 于 多 项 式 化 简 , 也 可 以 用 于 其 他 表达 式 的 
化 简 。 


1. 多 项 式 展 开 expand 


expand 达 Di 
expand(: 





、\ 上 式 ， 。 expl，， 2 ep 


expand 能 够 对 三 角 函 数 、 对 数 函 数 、 指数 函数 、 双 曲 函数 、 分 段 丽 数 等 各 关 表 达 
却 进 行 展开 ,并 根据 三 角 函 数 关 系 对 三 角 运 算 的 表达 式 进行 展开 和 化 简 。 


【 例 2】 表达 式 展 开 。 
> expand((x 十 1) x* (y 十 2) * (z 十 3)); # 多 项 式 展开 
TD 二 2 
> expand((Xx 十 1) * Sin(x 十 y)); 间 展开 含有 三 角 男 数 的 表达 式 
ZSIn(Z)cos(y) 十 Zcos(CZz)sin(y) 十 sin(Zz)cos(Cy) 十 cos(Cz)sin(Cy) 
> expand((Xx 十 1)/(x 十 2)); 井 有 理 分 式 展 开 





克 ] 
一 


在 因 式 展开 过 程 中 保持 不 变 的 子 表达 式 。 
SGXDpamd (CxX 二 1] 7 X 《YEZ77 元 站] 
LT] 芝 
> ReXDaDCLLX-T TXT X SITE 二 Y) 二 1 SCX 十 yy 7); 
JTJ 


2.。 因 式 分 解 factor 


光世 8 。 -1 二 罗 2 2 NA 区 区 2 
得 一 ; 了 4 4 党 、 人 人 人 0 
factoi K 和 外 2 

2 人 2 3 0 2 人 史 器 训 0 AS 
5 人 人 4 有 


0 
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在 效 域 中 ,对 表达 式 作 因 式 分 解 , 数 域 可 以 是 real .complex 或 用 户 自 定 义 的 数 
志 , 在 缺 省 情况 下 ,Maple 会 根据 所 给 多 项 式 的 系数 确定 因 式 分 解 的 域 。 例 如 ,如 果 
所 给 多 项 式 的 系数 都 是 整数 ,命令 factor 分 解 后 的 每 个 因 式 都 是 具有 整数 系数 的 不 
可 冉 分 因 式 ,其 中 的 因 式 可 能 不 是 线性 的 。 

factor 不 能 对 整数 进行 因 式 分 解 ,如 果 要 对 整数 进行 因 式 分 解 ,可 以 使 用 命令 
ifactor。 例 如 : 

> lfactor(1260 ) ; 

Ce 和 7 


【 例 3】 观察 表达 式 在 不 同 数 域 的 分 解 效 果 。 
> tactor(x 3 十 3 关 开 2 一 25 < 天 十 217， 
(CE 让) 
> factor(x- 3 十 5); 井 默认 数 域 为 有 理 数 域 
5 

> factor(x“ 3 十 5,real); 井 在 实数 域 中 

(zz 十 1.709975947) (过 一 1.709975947z 十 2. 924017740) 
> factor(x-3 十 5,complex); # 在 复数 域 中 

(Z 十 1. 709975947) (xz 一 0. 8549879733 十 1. 480882610D) 

(Z 一 0. 8549879733 一 1. 480882610D) 

3 ER 一 2 一 570SqrtC3DSOFECS7 


(Z 一 5) (zx 十 V3) (zx 一 V3)(z 十 V5) 
3. 合并 同类 项 collect 


_collect( 5 达 式 ， 2 


其 中 表达 式 为 任意 的 代数 表达 趟 ,jj 通常 为 多 项 趟 , 变量 可 以 是 单 _- 的 ， 也 可 以 是 变量 
列表 或 集合 。 

collect 将 多 项 式 中 所 有 具有 相同 有 理 数 寡 的 项 合并 在 一 起 ,以 多 种 组 合 方式 书 
写 多 变量 多 项 式 。collect 没有 排序 功能 ,用 户 常常 误 认为 它 应 当 包含 排序 功能 。 

【 例 4】 按 变量 次 序 合 并 同类 项 。 

>P :一 Xxy 人 axkXxy 十 yxX2 一 axYyxX2 十 X 十 ax 广 ; 





起 二 一 
> colject(p,x); 井 按 x 为 变量 合并 
(YY 一 CyA2 十 (yy 十 cy 十 1 十 za)7 
> collect(p,y); 间 按 y 为 变量 合并 
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C 一 5 人 az) 十 zx 十 ar 
> collect(p,| v,X|); 
《人 一 苔 3 十 (1 区 LT 十 总 
【 例 5】 按 函 数 ( 表 达 式 ) 合 并 同类 项 。 
>T: 王 axln(Cx) 一 ln(x) x* X 一 X，collect(f ,ln(Cx) ) ， 
人 
> Int(x 交 ( 人 expDKXJEXBKC 一 和 JJ eollecHeyexp(X775 





2 
本 
> 让: 一 a 3x<X 一 X 十 ax x3 十 al， 
关 证 证 
> collect(f,x) ; 
交 二 可 (区 一] sg 
> collect(f,x,factor); 井 选项 factor 的 作用 
OO 
【 例 6】 观察 collect 与 sort 的 区 别 。 
> Gelleetk(x3 着 (人 一 Y) -2 十 3 十 下 六 和 yy73 
9 
> Sort(% ) ; 
人 


4. 化 简 多 项 式 simplify 


simplify 可 按 因 却 或 数学 规则 化 简 表 达 式 ,如 三 角 郴 数 规则 ,或 者 用 户 自 定 义 
规则 。 


Simplify( 表 达 式 ) 化 站 委 基 区 
simplify( 表 达 式 ,规则 ) 按照 规则 化 简 表 达 式 - 
simplify( 表 达 式 ,assume 一 一 性 质 ) 按 给 定 的 性 质 化 简 表达 去， 
simplify( 表 达 式 ， symbolic) “对 表达 式 进行 符号 处 理 、 


【 例 7】 化 催 表 达 式 。 
> 二: 一 Sqrt(x2):， simplify(Cfy> ; 
GSEHRK 交 ) 无 


> Slimplify(f,assume 王 Positive) ; 
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> Slimplfy(fiyassume 一 real) ; 
[| 
> SImplfyGCt,symbolicy) ; 
字 
> :一 xX3xy2 十 (xy) 2xX 一 (2xyxxXx2 十 xxy2)， 
> Simplily(f); 间 化 简 多 项 式 
人 
> Slimplfy(Gi xx 2 一 x 十 1));， 闪 花 括号 ( ?不 能 少 
六 十 1 十 (2 EN 
>T3: 一 一 1/3x*Xx5xy 十 x4xy2 十 1/3xXxxv3 十 ]; 
> SImpjlify(i 1 x 3 一 Xxvyy2 一 X 十 1)) ， 
1 下 十 y 一 2y 一 包 十 y 
【 例 8】 化 简 三 角 函 数 表达 式 
> SImpjify(Ccos(Cx) 5 十 Sin(x) 4 十 2 xx cos(X) ”2 一 2 x Sin(x) ”2 一 coS(2 xxX) ); 
cosGCZz) (cos(z) 十 1) 


2.1.2 多 项 式 的 四 则 运算 


1， 加 法 和 减法 
用 加 二 “十 ?和 减 号 "一 ”运算 符 完 成 多 项 式 的 加 法 和 减法 运算 。 常 用 天 数 sort 
整理 多 项 式 , 让 各 项 按 守 次 从 高 到 低 排 列 。 


〖 例 9】 多项式 的 加 法 。 
、f : 一 X2 一 xX 十 1 多 : 一 X 3 十 2x*xX2 一 3， [二 gg; 


3 二 一 工 一 2 十 
> Simplifvy(Co50 ) ; 

3 妆 一 一 2 十 好 
> sort(Y); 间 等 同 sort(% ,descending) 

刀 十 3 刀 一 并 一 2 


2 乘法 


两 个 多 项 式 相 乘 ,上 自然 想到 在 两 个 多 项 式 之 间 用 乘 号 ,不 过 仅 用 乘 号 还 不 够 ,还 
要 用 expand 或 factor 告诉 Maple 多 项 式 相 乘 后 是 展开 形式 还 是 因 式 形式 。 
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【 例 10〗 多 项 式 的 乘法 。 
> 于: 一 X 2 一 x 十 1: g : 一 X3 十 2x* x2 一 3: fx g; 井 为 何 乘 号 不 起 作用 
人 
> expand(fxg); 井 王 污 g 的 乘积 按 展开 形式 表示 
2 
> factor(fx g); 于 与 g 的 乘积 按 因 式 形式 表示 
(和 一 下 十 工 汉 志 1 十 85 二 5) 





3. 除法 


用 曙 数 rem 或 quo 做 多 项 式 的 除法 。 当 多 项 式 的 系数 都 是 有 理 数 时 , 函数 
divide 也 能 做 多 项 式 的 除法 。 设 六 gs 是 以 z 为 自 变量 的 一 元 多 项 式 ,a,2 为 任意 有 理 





【 例 11】 多 项 式 的 除法 。 

二 一 十 1 R 二 2 一 天 |， 

一 rem(f,g,x， q ); 井 计算 fVg 的 余 式 ,将 fy/g 的 商 放 在 q 中 
六 3 2 一 27 

> quo(f,g，x ),q; 井 计算 f/g 的 商 
| 


三 





> SimplifyCg x* q 十 T) ; 
一 
> gcdCx2 一 Y2,x5 一 Y5); # 计算 ff 和 8g 的 最 大 公 因 子 
有 
> lcm(Cx2 一 y2,x5 一 5);， 井 计算 ff 和 g 的 最 小 公 售 
大 克 
> divide(x 3 一 Y3,x 一 yq) ; 
true 
光 汪 


和 


十 省 并 于 太 
> sort(0% ) ; 
2 二 二 相 
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4， 判 列 式 discrim 


我 们 熟知 二 项 式 di 十 拒 十 c 的 判别 式 为 A 三 炙 一 4ac。 对 于 一 般 的 半 次 多 项 式 
bz) 一 cz 一 zz 一 加 ) ,其 判别 式 定义 为 A 一 or 1 一 站 7。 


1 
【 例 12】〗】 二 项 式 和 三 项 式 的 判别 式 。 
> discrim(axX2 十 bxx 十 cC,X) ; 
一 4cc 十 新 
> discrim(ax x3 十 bx X 二 cyX); 
一 Q(C4P 十 27cc) 
> discrim(ax x 3 十 bx x2 十 CxX 十 dxX) ; 
一 27 必 玫 十 18a4gcb 十 天 全 一 4 全 C 一 4ac' 


2.1.3 访问 多 项 式 的 部 分 元 素 


对 于 一 个 项 数 较 多 的 多 项 式 ,在 运算 中 有 时 想 查看 某 个 变量 的 某 千 次 项 的 系数 ， 
或 查看 多 项 式 中 的 最 高 宕 次 ,或 蔡 换 多 项 式 中 的 某 一 项 。 在 表 2-1 中 , 设 ”为 整数 ， 
户 为 多 项 式 ,z 为 单个 变量 或 变量 列表 或 变星 集合 。 
表 2-1 访问 多 项 式 的 部 分 元 素 
珊 数 说 明 
indets(CP) 户 的 所 有 杰 量 列表 


COetf Py 式 * 只 ) - An A 
”| 的 项 系数 光 的 缺 省 值 为 1 
coeff(P, xny) 


coeffs(CPp) 户 的 所 有 单项 式 的 系数 列表 
coeffs(p,x) | 户 关 于 > 的 多 项 式 系数 列表 
coeffs(p,x,) | 户 关 于 >z 的 多 项 式 系数 列表 ,并 将 相应 的 z 的 寡 次 赋 给 变量 : 
lcoeff(Cp) pp 的 首 项 系数 
lcoeffCp , x) 户 关 于 xz 的 最 高 项 系数 
loceff(b,x, t ) | 请 关于 >x 的 最 高 项 系数 ,并 将 相应 的 zx 的 过 次 赋 给 变量 : 
tcoeff(p) 户 的 尾 项 系数 
tcoeff(Cp ,X) 户 关 于 的 最 低 项 系数 
toceff(p,x,t ) | 户 关 于 的 最 低 项 系数 ,并 将 相应 的 z 的 过 次 赋 给 变量 : 
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续 表 
昌 效 说 明 
户 关于 的 最 高 项 的 全 次 数 ( 当 z 为 单个 变量 或 集合 时 ) 或 呵 量 次 
qdegree(P，X) 
数 ( 当 为 列表 时 ) 
户 关 于 >x 的 最 低 项 的 全 次 数 ( 当 > 为 单个 变量 或 集合 时 ) 或 回 量 次 


jdegree(P， 式 ) 
数 ( 当 r 为 列表 时 ) 


【 例 13〗 访问 多 项 陈 的 部 件 。 

> dxs : 一 exbpand(C(Xx<y 一 2xy< 一 1)3); 

cx 3 一 妇 曙 一 6z2 寻 一 3 妇 曙 十 127 站 十 127 曙 十 37y 一 8 一 12y 一 6y 一 ] 
> nops(dxs); 间 共有 10 项 元 又 


10 
> degree(dxs); 井 给 出 戎 次 最 高 项 的 系数 
6 
> coeff(dxsyy,2); 井 列 出 六 2 项 的 系数 
一 3z 刀 一 6 
>、 lcoeff(dxs) ,tcoeff(Cdxs)， 井 访问 首 项 、 尾 项 系数 
] ,一 1 
> op(3,dxs); 井 访问 第 3 个 元 篆 
一 3z 信 


2.2? 有 理 分 式 


2. 2.1 有 理 分 式 的 类 型 


多 项 式 的 加 、 减 、. 乘 和 非 负 整数 次 乘 方 运 算 的 结果 仍然 是 多 项 式 , 两 个 多 项 去 的 
商 可 能 是 分 式 而 不 是 多 项 式 ,Maple 把 多 项 式 和 分 式 统 称 为 有 理 多 项 式 或 有 理 分 式 ， 
其 中 多 项 式 可 以 看 成 分 母 为 1 的 分 式 。 

困 数 expand 只 能 对 分 式 的 分 子 进行 展开 ,并 把 结果 表示 为 多 个 分 式 和 的 形 却 ; 
函数 factor 首先 把 分 式 化 简 , 然后 对 分 式 的 分 子 和 分 母 进行 因 式 分 解 ; 图 数 cojliect 
对 分 式 通常 不 起 作用 。 
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【 例 14〗 有 理 分 式 的 展开 和 分 解 。 
> 上: 一 (X 十 1)”2/((Cx2 十 x) <X): g :一 expand(f) ; 


已 we 本 二 
5 卫 


> factor(fy7 ; 
| 
2 
有 理 分 式 的 兴 型 名 为 ratpoly, 可 以 使 用 命令 type 确认 有 理 分 式 的 数据 类 型 。 
>DP :一 X3 十 4x<X2 十 5xXTT2: 9 :一 X2 十 3xXT2:rp :一 D/dq; 


_ 攻 本 
下 志 十 3 元 十 2 


> | whattype(Crp) ,type(Crpy,ratpoly) ,type(Crp,polynom) |; 
| xx， ,trueyfalse 


有 理 分 式 包 含 两 个 操作 数 : 分 母 和 分 子 。 可 以 使 用 命令 op(1,rp) 访 问 有 理 分 式 
rp 的 分 子 ， 呈 必 rp) 访 问 rp 0 








【 例 15】 观察 用 op 与 denom 访问 有 理 分 式 分 母 的 效果 。 

> numer(rp) ,denom(rp); 井 访问 有 理 分 式 的 分 子 和 分 母 
二 2 

> op(1,rp),op(2,rp); # 访问 有 理 分 式 的 第 1.、2 个 操作 数 


] 
3 2 2 权 
区 人 


2.2.2 分 却 化 向 





1 人 是 则 了 2 





通 般 1 对 村 多 项 式 不 起 作用 。 implify 可 以 化 简 cOnvert < 清末 也 能 起 
到 化 催 分 式 的 作用 。 


【 例 16】 有 理 分 式 化 简 。 
>f: 一 (x 十 1)*2/((x2 十 x) * x) : normal(f);， 间 此 时 与 simplify(Crp) 作 用 相同 
| 


交 
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> collect(f ,xy) ; 


1 十 六 十 2 
( 妨 十 净 ) 交 


> convert(t ,parfrac,x); 井 化 简 效 果 不 锚 
1 
文 
> convert(Cexp(xX) ,confrac,x); 井 将 ex 化 为 连 分 式 





2.2.3 变量 薪 换 


分 式 的 变量 符 抠 和 多 项 却 的 变量 苞 换 类 似 , 可 以 通过 命令 subs 或 eval 完成 葡 
量 符 换 。 
【〖 例 17〗 变量 蔡 换 subs 求 值 。 
>: 三 (xz2 十 3xX 十 2)7/(x2 十 5 xX 十 6)， 
> Subs(Cx 王 1.0,f ，eval(ft,x 一 1.0); 
0. DUO000UU0U000U ，0. OUUUUUOQOWUUU 
> Subs(X 王 一 2 1) ; 


Error ，numerlc exception: divislon by zero 


错误 信息 表明 蔡 换 他 令 不 能 在 分 式 的 奇 点 处 进行 变量 蔡 换 。 


2.3 求 和 与 乘积 


Maple 提供 了 计算 求 和 与 乘积 的 命 邻 ( 表 2-2) ,计算 有 限 和 式 、 无 限 和 式 `. 有限 来 
积 以 及 无 限 乘 积 。 

sum product 的 求 和 、 乘积 意义 与 add .mul 基本 相同 ,两 组 图 数 只 在 通 项 公 却 和 
运算 范围 等 细节 上 存在 差别 。add 和 mul 要 求 循环 范围 是 确定 的 数 ,更 适合 数值 序 
列 求 和 、 求 积 *sum、 ee 的 循环 范围 可 以 是 文字 或 无 穷 , 更 适合 做 公 式 推导 ;add、 
maul 能 够 对 数组 元 素 进行 运算 ,而 sum、product 则 不 能 直接 对 数组 元 素 进 行 运 算 。 
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万 外 ,sum、product 还 有 相应 的 居 性 男 数 Sum 、 Product 。 
表 2-2 常用 的 求 和 与 乘积 函数 
果 数 说 明 


add(f, 1 一 mn . ) ， 


江 但 : 《7)， (7) 
add(fi, 1 一 x) ,add(Cf, iin x) 妇 值 求 和 2./ 2 


mul(Cft 1 一 In 时 nm ) 由 


mul(i, 一 xy) mul(f,iin xy) 


数值 乘积 [| Ap ,| Ar 
一 FE 
sum(f,iD ,sum(f.i 一 m. .pb) 形式 求 和 > ,让 D，> ,三 () 


product(f,i ,productGf,i 一 m..n) | 形式 乘积 | | AD, | 


【 例 18〗】 观察 sum 和 add 对 求 和 范围 的 反应 。 
> Sum(Ck-2，、K 一 1. .ny); 


了 3 了 上 2 上 上 
了 (2 十 |) 方 (2 证]) 十 读 2 十 下 
> factor( % ) ，; 
mm 十 1D)(2m 十 1 
> add(k-2, 上 一 1..n)， 


Frror，unable to execute add 
> Sum(1/k 2 ,kk 一 1..infinity) 一 sum(1/k 2,k 一 1..infinity) ; 
1 1 
部 在 ”6 


A 二 1 
> add(1/k 2,k 王 1..infinity) ; 
Lrror，unabje to exectute add 
如 朱 不 定义 sum() 中 变量 & 的 取 值 范围 , 则 系统 会 自动 选择 从 1 到 & 一 1, 如 下 : 
人 sum(k ,) ; 
1 ， 1 
订 帮 订 天 


[| 


> SumCX KK 一 1 .1000) ; 


OODj 
个 








> add(Cx 上 ,kk 王 1. .10007) ; 
输出 略 , 请 在 计算 机 上 观看 结果 ,输出 求 和 式 的 每 一 项 。 
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【 例 19】 求 和 范围 是 列表 类 型 。 
> 工 : 王 [seq(i,i 王 1..10)]; add(i,i 一 L); 
同一 攻 枉 本 :机 本 本 :再 :网 
55 
> Sum(l,1 一 革 ) ; 
Error，(Iin sum) second argument must be a_name，name 一 a.. b，name 一 


RootOf ，or name 一 value 


【 例 20】〗】 下 标 变量 与 求 和 通 项 。 
SVMectoF(| 1 2345 1)，addkvy| |, 上 一 1 574 

15 
> SUrn(CvV| 攻 | kk 一 1 .57 ; 

Error，bad index Into Vector 

> sum(C v[k] ,上 一 1. .5); 

15 
> Wi 一 |1,2,3,4,5|1>sumCw| | 上 一 
15 


| 和 - 


2.4 初等 代数 方程 和 方程 组 


2.4.1 方程 及 其 根 的 表示 


丁 所 涉及 的 方程 和 方程 组 属于 初等 数学 的 范围 ,有 关 高 等 数学 求解 线性 方程 
组 的 内 容 放 在 第 4 章 . 

在 数学 中 ,代数 方程 用 等 号 表示 ,例如 : 忆 一 6z 一 5 天 0。 在 Maple 中 ,代数 方程 
同样 使 用 逻辑 等 号 * 一 "表示 ,此 时 方程 是 一 个 逻辑 表达 式 , 它 的 意义 是 判断 方程 等 号 
两 边 的 量 是 否 相等 。 

> xX: 一 1， evalb(x2 一 6 * X 一 5 一 一 10); 井 xx 是 否 为 方程 的 根 

true 

> evalb(x-2 一 6 * x 一 5 和 0); 井 false 表明 方程 两 边 不 相等 

false 
Ihs( 方 程 ) ,rhs( 方 程 ) 
分 别 获 取 方 程 的 等 号 左边 和 右边 的 项 。 


人 


46 竺 号 计算 系统 Maple 教程 





【 例 21】 访问 方程 组 的 左边 (右边 ) 。 
> eqn : 二 X 4 一 0 < X 2 十 6x* X 一 2: ]hs(Ceqn) ,rhs(Ceqny) ; 
六)2 
> eqnl : 二 ]hs(Ceqn) 一 rhs(Ceqn)/2 王 3; 井 组 合 为 新 方程 
一 2 一 十 07 一 1 一 3 
0 isolatef 订 程 ,表达 式 9 5 740 0 
化 简 方程 使 得 表达 式 仅 出 现 网 在 方程 的 左边 ,右边 涉 见 其 影 


【 例 22〗 用 移 项 函数 解 方程 。 
> 1lSolate(Cy 十 入 ES ; 


了 9 十 寺 十 二 VIFIO7TI 
> lsolate(y 一 SIn(X) 十 广 * cos(y) 一 2 ,COSCY) ) ; 
一 玫 二 二 二 (无 ) 
cOSCy) 一 
党 
Jinit EX) 一 infinity) 一 Wint(hCx7 一 it 二 区 X)， 
ln 太 ) 一 zw 十 |Aczdz 一 |gCm)dy 一 SC) 
> isolate(% ,x) ; 


lim 7Cz) 十 | az)dz 一 sz) wj 十 | gc)dy 


2.4.2 求解 方程 (solve) 








， 人 0 


求解 方程 中 的 变量 ， osPeapoeyP 二 量 说 这 是 证 最 询 才 下 全 
合 , 还 可 以 省 略 。 当 方程 元 素 是 符号 或 准确 数 时 ,solve 求 方程 的 准确 解 (解析 解 ); 当 





十 


方程 元 系 是 实数 时 ,solve 计算 方程 的 近似 解 (数值 解 ) 。 方 程 的 解 按 序 列 形式 给 出 ， 


可 赋值 于 列表 、 集 合 等 数据 类 型 ,并 按 序列 元 素 访问 方式 访问 每 一 个 解 。 


【 例 23】〗】 观察 解 的 数据 类 型 。 
> SO] : 一 solve(x 3 一 2 * x 十 1 一 0,x); 井 或 solve(x3 一 2 x x 十 1) 


站 
SOL 3 一 |， 方 十 V 5， 2 7V5 
> solL2J; # 访问 第 2 个 解 , 解 集 的 第 2 个 元 素 
= 
下 
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方程 的 解 有 多 种 数据 类 型 , 解 的 输出 形式 取决 于 对 解 序列 的 类 型 定义 。 

> sols : 一 solve(x 4 一 6 x3 十 13 xx2 一 12x 十 4); 井 解 的 类 型 是 序列 
ol : 一 2,2,1,1 

> sols| 2. .4 ， 井 可 以 俐 使 用 sequence/list 一 样 


2,1,] 
> {sols};， 划 (给 出 的 是 集合 的 形式 ,所 以 不 能 有 重复 的 元 素 
(1 2) 


> sols : 一 solve(fz2 十 2 一 5,x2 一 Y2 一 3));， 井 解 的 类 型 是 序列 

So08 一 (全 一 2 一 1 全 2 一 1 一 一 2 一 一 1 人 zz 一 2y 一 一 ]) 
> sols : 一 solve((x2 十 Y2 一 5 x2 一 yY2 一 3), xyj);， 井 解 的 类 型 是 列表 
0 : 一 [Lxz 一 一 2 一]j],Lz 一 2 一 1]j,Lxz 一 一 2,y 一 一 1] ,zxz=2,y 一 一 1 
【全 24〗】 求解 妇 十 10z2 十 7z 一 18 王 0, 并 验证 方程 的 根 。 

>Tf: 一 X3 十 10xX2 十 7x<X 一 18:， solve(f) 


1 ,一 2 一 9 
> eval ({f,x 一 一 2) 井 验证 一 2 是 否 为 方程 的 根 
名 


或 者 利用 subs() 函 数 将 求 出 的 解 代 换 回 方程 来 检验 。 
> subs(x 王 一 9,f); # 验证 一 9 是否 为 方程 的 根 


OO 
> Subs(x 一 3, 纪 ;并 验证 3 是否 为 方程 的 根 
1]20 


有 时 准确 解 过 于 复杂 不 便 使 用 ,如 方程 
> solve(Cx 3 一 12 xxX2 二 3) |; 
] ， 32 
地 (500 十 41 V759)09 十 一 一 一 兰 -一 
“ (500 十 4I 7597)413) 


1 。 16 
十 4, 一 二 (500 十 4I V7597003) 一 一 一 一 一 -一 
4 (500 十 4I /75974173， 


1 上 15: 3< 
十 二 TIV3( 寺 (500 十 41 V759 四 全 一 一 一 一 一 一 一 一 }， 
2 VS 2 (500 十 4I ,0 


1 16 
- 工 (500T4LV75900 一 
4 (500 十 4T V759)09， 


] | [人 3) 了 2 
一 -一 一 《500 十 41 yyV 7759 一 一 一 一 一 一 
人 Tv “ 1 (500- 二 4I w 二 
其 中 IT 是 虚数 单位 。 这 时 ,我 们 可 以 用 evalf() 施 数 得 到 方程 的 近似 解 。 
> evalf( 2520 ) 
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11. 97909389 一 1. 10- 一 0. 4900922165 一 1.732050808 10? 工 
0. 9109983305 十 1.732050808 10 一 
如 采 将 方程 其 中 一 个 元 素 的 整数 系数 改 为 小 数 (例如 ,在 系数 3 后 面 加 一 个 小 数 
点 ),solve() 曙 数 直 接 给 出 方程 的 实数 近似 解 。 
> solve(Cx 3 一 12xX2 十 3.、); 
0. 5109983303，11. 97909389 ， 一 . 4900922162 


【 例 251 解 的 参数 形式 。 
> solve(Cx2 十 2x vv2 一 9,(xCt),yCt))); 


3 3t 和 3 37 
1 JJ 于 和 7 二 赤 上 | Vv1 十 2# vV1T 十 2 


solve() 图 数 也 可 以 求 非 多 项 式 方程 的 精确 解 ,但 如 采 方 程 过 于 复杂 (如 混合 出 
现 指 数 云 .多 项 去、 三 角 式 ) ,其 精确 解 往往 不 易 求 得 ,此 时 求 近似 解 是 较 佳 的 选择 。 











2.4.3 求解 方 程 组 


solve() 函数 主要 用 在 求解 低 阶 的 线性 方程 组 或 多 项 式 方程 组 ,或 者 说 求解 初等 
数学 中 的 方程 组 。 在 本 节 中 方程 组 无 解 和 无 穷 多 组 解 的 情况 不 是 我 们 关注 的 内 容 。 
十 了 十 也 一 ] 
【 例 26】 wrote , 并 验证 方程 组 的 解 。 


& 一 2 一 纪 一 0 


> eqns : 一 tuUTV 十 WwW 一 1,3x* uv 一 3,u 一 2<Vv 一 WwW 一 0)，sSols : 二 Solve(eqns) ; 
(ta 5 9 5 ， 6 


> eval(eqns, %); # 验证 方程 组 的 解 

1 一 1;,0 一 0,3 一 3) 
还 可 以 用 subs() 缅 数 来 验证 求 得 的 解 。 
> Subs(sols,eqns ) ; 


,一 1 式 十 y 十 z 一 1 
【 例 27】 求解 方程 组 (1) (2) | 
2 3z 十 y 一 3 
Z 十 y 一 


> s :一 SOlve(1xX 十 y 一 1,x 十 y 一 2 ); 


一 


solve() 返 回 空 集 (NULL) ,表明 方程 组 无 解 。 
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> SoOlve((X 十 y 十 z 二 1,4x<X 十 2 xy 十 zZ 一 4，3xXTy 一 3 ) 
ty 一 一 37 十 3，z 一 一 27 一 2 并 一 位 
方程 组 有 无 穷 多 组 解 ,solve 返回 方程 组 的 通 解 ,z 为 目 由 变量 。 
【 例 28】 求解 非 线性 方程 组 (1) |z “> 5,(2) | “> 一 
文 十 y 一 3 

> soljve((x 2 十 y 一 5 Xx 十 y 一 3 ); 

ty 一 1 ,7 一 2 一 一 1,y 一 4) 
> solve((x 2 十 Y2 一 1,x 一 y 一 1 ); 

(yy 一 0, 一 1 yy 一 一 1 工 一 0) 


马 


六 一 y 一 | 


2. 4.4 求解 不 等 式 


solve 函数 可 以 用 来 求解 不 等 式 , 其 调用 方式 和 求解 方程 相同 。 在 不 等 式 求解 
中 ,系统 经 常 给 出 通过 函数 RealRange 和 Open 表示 的 求解 绮 采 ,其 中 RealRange(ayb) 
表示 以 ap 为 端点 的 区 间 [c,o],RealRange(Open(a) ,Open(b)) 表 示 不 包括 端点 的 
开 区 间 (a,o) 。w, 可 以 是 数值 .ce .一 =e。 


〖【 例 29】〗 求解 不 等 式 。 
> solve((Cx 一 1)"2>9); # 求解 区 域 
RealRange( 一 ce ,Upen( 一 2) ) ,RealRange(CGOpenGC4) ,co ) 
> Solve((X 一 1 十 a) xx (X 一 2 十 a) xx(〔(X 一 3 十 a)<0，X) ; 
(7Z<C1 一 CC) 2 一 L<CTTY< 3 一 4 
> Solve((CX 一 和 ) <(X 一 3) <(X 一 4)< 一 0) 
RealRange( 一 co2,2),RealRange(3，4) 
> solve(!(X 十 y<12,x2 一 161); 
1y<<16,7z 一 一 4) (7 一 4 y<<8) 
【 例 30〗 系数 带 符号 的 不 等 式 。 
> assume(ayreal); Solve(ax xc<cb,x); 井 设 a 为 实数 


slgnum(Cc 一 JE | 


signum(x) 是 符号 函数 , 当 zx 盖 0 时 值 为 1, 当 <0 时 值 为 一 1, 当 =0 时 值 
为 0。 


> assume(a>0):，solve(ax xc<b,x); # 假设 a>0 


中 
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2.4.5 计算 方程 的 数值 解 (fsolve) 


fsolve( 方程 ,变量 ,选项 ) 
用 数值 方法 求解 方程 的 近似 实数 解 方程 也 可 以 是 方程 组 或 不 等 式 (组 )， 变量 也 
可 以 征 变 量 列表 或 集合 ,变量 和 选项 都 可 以 省 略 。fsolve 语句 返回 一 个 序列 。 无 论 
方程 的 元 系 是 准确 数 还 是 近似 数 , 方 程 的 解 都 按 小 数 形式 给 出 。 精 度 由 全 局 变量 
Digits( 黑 认 值 为 10) 控 制 , 用 户 可 以 改变 Digits 的 值 以 提高 求解 的 精度 。 如 果 方 程 
是 病 仿 的 , 某 些 解 可 能 会 被 遗漏 。 


【 例 31〗】 用 fsolve 求 解 方程 (组 )。 
> fsolve(Ctan(CSsin(Cx)) 一 1); 
0 39033391108 
> fsolve(Cx“2 一 2 x* X 十 1) ; 
1]. 000000000 ，1. 
ysolvekx5 一 3x 和 3 十 1) 3 
一 . (522308780，、，0. 7418139305，1586D8X77593 
为 何 5 次 多 项 式 方程 只 有 3 个 根 ? 因为 系统 的 默认 值 是 实数 域 。 在 函数 中 加 入 
compjlex 选项 ,把 求解 的 范围 扩展 到 复数 域 , 则 有 : 
> fsolve(x 5 一 3x x 3 十 1,x,complex); 
一 《623007805 一 0 3141413715 一 入 59544132831， 一 人 3141413715 
十 0. 59954413283I，0. 7418139305，1. 668777593 
求解 例 26 中 的 方程 组 。 
> fsolve((tu 十 v 十 w 王 1,3 x* u 十 v 王 3,u 一 2 * v 一 w 二 0));， 井 给 出 数值 解 
tu 一 0. 80000000000,v 王 0. 60000000000,w 王 一 0. 40000000000 
> Diglts : 二 30; 井 设置 30 位 有 效 数 字 
30 
> fsolve(sin(x),x,3..4); # 给 出 在 区 间 [L3,4] 内 的 解 
3. 14159265358979323846264338328 


2.4.6 求解 递归 方程 (rsolve) 


rsolve( 六 程 , 函 数 ,选项 ) ， 


rsolve 求 解 满足 递归 方程 的 图 数 ， 用 选项 控制 函数 的 表示 形式 。 例如 ， 选项 
series 表 示 解 困 数 按 级 数 形式 输出 ,选项 可 省 略 。 
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【 例 32】〗 求解 递归 方程 。 
> fsolve(tCny) 一 nxftn 一 1) fy)>; 
EC2 十 1) CO) 
> Tsolve({(E(Cn) 一 ECn 一 1]) 十 Fn 一 2),FE(1..2) 一 1) FE) 并 Fibonacci 数列 
人 
-> rsolve(f(Cx) 一 difft(f(Cx),x),f，series ); 划 微分 方程 的 形式 壤 级 数 解 


、 ] ] ] ] 
F 太 Zr 一 cl 十 并 Cl 十 误工 -cl 十 Tc 十 4 Ci 十 1307 -ce， 十 人 (ze ) 


本 


关 一 1 


【 例 33】 求解 差分 方程 组 





! 0 一 
,初始 条 件 是 | ， 
_ 


> fsolve(s(n) 一 tn) 一 tn 一 1),tn) 一 SCn 十 1]) 一 SCn)ysCO0) 一 0,t(C0) 一 1 ， 


{s,t)， genfunc (x) ) ; 


全 
下 一 91 


CD 于 交 ,) 一 
郊 


一 1 十 并 
1 十 刀 一 3 


1 十 妇 一 3x 
输出 母 图 数 s(Cz) 一 sr ,上 CT) 一 2 。 


2.5 三 角 睫 数 及 变换 


2.5.1 三 角 函 数 及 其 反 函 数 


表 2-3 列 出 了 三 角 果 数 及 其 反 恩 数 。 
表 2-3 三 角 函 数 及 其 反 函 数 


0 Ra 


在 默认 情况 下 ,系统 会 以 弧度 作为 参数 单位 (Cr 度 王 180 角度 ) ,利用 系统 所 全 
的 基本 函数 ,用 户 可 以 计算 所 有 的 三 角 盟 数 。 
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【 例 34】 计算 三 角 函 数值 。 
> 本 (1 之) 
0. 9320390860 
SS PPO 2 
4. 070953523 一 2..0217256181] 
> Sin(Carcsin(2)),cos(60x* Pi/180); 井 化 角度 为 弧度 


过 
2 
利用 convert 图 数 也 可 以 进行 角度 与 弧度 之 间 的 互相 转化 。 
> coOnvert(Pi/2 ,degrees); 井 化 弧度 为 角度 

90 degrees 


> convert(60 * degrees，radians); 井 化 角度 为 弧度 


本 
反 三 角 困 数 同 三 角 函 数 的 用 法 类 似 , 返 回 弧度 值 。 反 三 角 函 数 还 可 以 用 复合 函 
数 的 形式 表示 。 例 如 , (tf@Q@3)(x) 表 示 FCFCFGz))),， (CQ@G@( 一 3))(x) 表 示 
9 
> (sin@Q@( 一 1))(17/2); 
] 


下 
利用 三 角 晒 数 和 反 三 角 函 数 的 组 合 ,我 们 可 以 得 到 一 些 基 本 的 三 角 恒 等 变化 
AAA 


> SInCarccOosS(CX) ) ; 


> coOS(Carctan(CX) ) ; 





YY T 十 区 
2. 5.2 恒 等 变 换 与 三 角 函 数 展 开 


三 角 田 数 的 恒 等 变换 是 高 中 数学 的 基本 内 容 。 利 用 combine 函数 ,用 户 可 以 完 
成 和 兰 化 积 、 人 有 全 出 生生 汪 让 和 到 





ai 可 以 将 表达 式 中 的 多 个 和 式 、 二 乡 次 项 合并 为 _- 个 和 式 . 条 视 . 项 次 
项 ,将 多 个 Int\Sum、Limit 表达 式 合 并 为 一 个 Int\Sum 、Limit 表达 式 。 请 从 下 面 的 
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例题 中 理解 “合并 归 一 ”。 
【 例 35〗 观察 combine 和 expand 的 作用 效果 。 


> expand(CSin(CX 十 yY) ) ; 
sin(z)cos(Cy)》 十 cosCzr)SInCyY) 
> combine(sin(Cx) x* cos(x)); 井 化 解 乘 扎 , 即 积 化 和 卷 


六 sin(27) 


、 combine(Csitn(xX) 十 2Sin(xXx) 2 十 3coSsCX) 3) 
sin(Zz) 十 1 一 cos(C27) 十 半 cost 3 六 ) 十 粒 cos() 


> expand(CcosGC3 关 X) ) 


4cos(CZ 六 一 3cos( 并 ) 
将 两 个 积分 式 合 并 为 一 。 


combine(Jnt(sin(x) 2,x 一 a..b) 一 Int(cos(X) 2,x 一 a. .b) ); 


/ 
| 一 Cos(C27z)dz 


可 以 简单 的 理解 为 :combine 将 三 角 函 数 变换 为 形 如 >vakcos(CRz) 十 sin(CAz) 
的 Fourier 级 数 , 而 expand 则 将 三 角 上 数 变换 为 形 如 > sin(z)icos(Cz); 的 寡 
级 数 。 

利用 convert 函数 ,用 户 可 以 将 三 角 函 数 化 为 只 含有 sin cos ,tan 的 形 却 。 

【 例 36】 三 角 函 数 之 间 三角 函数 和 指数 间 的 转换 。 


> expr : 一 Sec(X) < COt(X) 一 SInCX) : 


> coOnvert(eXxprytany) ; 


1 二 tan{( 访 x) 2tan{( 六 z) 
(一 an( 王 xz) )tan(z) 1-tan( 坏 z) 


> exprb : 一 coOnvert(expr, SInCOS ) ; 


CD 一 SIn(Z) 
用 户 还 可 以 进行 三 角 函 数 与 指数 以 及 反 三 角 函 数 与 对 数 加 的 互 换 。 
> convert(Ctan(X) ,exp); 并 三 角 函 数 和 指数 间 的 互 换 
IC(e' 和 六 一 ]) 
(e') 十 ] 
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> COnvertCexpP(CX 2 ) 一 2x exp( 一 X2)， cos) ; 

coOS( 一 z-) 一 Icosl [zz 十 方丈) 一 2cos(Iz ) 十 2Tcos( Iz: 十 方 xx) 
【 例 3 了 反 三 角 申 数 和 对 数 国 的 互 换 。 
> Convert(arctan(X) ,iny) ; 


祁 I(lnG1 一 LD) 一 InC1TIZ)) 


2.5.3 双 曲 函数 及 其 反 声 数 
Maple 中 也 包含 了 双 曲 函数 及 其 反 函 数 ( 表 2-4) ,图 数 变量 可 为 有 理 数 、 实 数 和 
复数 。 其 中 


人 





sinh(z) 一 


_ 民 全 -全 忆 工 
2 


7 ,cosh(z) 一 = 


表 2-4 双 曲 函数 及 其 反 通 数 


RN Rn 


【 例 38〗 双 曲 果 数 的 计算 和 化 徐 。 
> Sech(C1 十 1.2x 关 了 ); 
0. 3697083236 一 0. 72423481291] 


> convert(CSinhCx) ,exp); 


工 了 工 工 
2” 2 写 
> Stimplify(Csinh(Cx) 2 一 cosh(Cx) 2 7) ; 
一 ] 


> expand(cosh(X 十 y) ) ; 
cosh(zr)cosh(Cy) 十 sinhGCz)sinh(Cy) 


> simplify(Cconvert(Ctanh(X) ,exp) ) ; 
et 一 ] 


et27) 十 ] 
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1. 计算 下 列 多 项 式 的 值 。 

(1) Fz) 王 人 一 27 一 1, zx 一 11,22,33 

(2) g(zy) 一 妇 y 一 三 天 十 3zy 一 1 一 ,yy 一 237 一 3 yy 一 一 2 
2. 已 知 (zyyyz) 一 (一 yy 六 一 (27z 一 3y 十 zx)。 

(1) 问 zyz) 的 展开 式 中 有 多 少 项 ? 


(2) 将 多 项 式 /zyz) 按 zy>z 降 震 排 序 后 ,取出 第 一 、 第 二 和 最 后 一 


3. 分 别 在 实数 域 和 复数 域 因 式 分 解 下 列 各 式 。 
(1) 并 一 民 ; 

(2) 袜 一 入 

(3) 81 一 

(4) 友 十 5 妇 十 117z 十 15 

(5) 心 十 信 十 忆 一 3apc 

(6) 妈 y 一 1 十 zy 十 太 十 工 一 太 一 一 交 

4. 对 下 列 数列 求 和 。 


100 


(1) >,(] 十 2 下 ) 


灰 一 站 


1 
(2 之 ， 到 二 


之 
(3) >， 和 
一 ] 


(六 六 -1 1 


1 一 ] ) 一 | 


5、 对 下 列 数列 求 积 。 


100 


局 站 


本 


20 
(1 ITIT 尘土 3 二 


一 ] 1 一 


6， 用 ve 或 移 项 函数 isolate 解 个 列 方 程 。 
(1) 3z 十 5(27z 十 1) 一 0 

(2) (yy 一 3 关 一 (y 十 3) 一 9y(1 一 2y) 

(3) apz 十 (性 十 全 ) 十 纺 人 一 0,ap 天 0 


99 
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(4) 六 一 (2 二 1) 十 十 Pr 一 0 
7. 解 下 列 方程 组 ,并 用 eval 和 subs() 函 数 验 证 方程 组 的 解 。 
CT) jv3zTv3y 一 Y7 
VE _VTy 一 5 
4 十 忆 十 记 一 ] 
可 一 3 
| 
4 太一 9 均一 15 
9 
妇 十 27y 十 六 一 9 
(7 一 yy 六 一 3Cx 一 y) 一 10 
8. 解 下 列 不 等 式 。 
(]) (z 一 2 十 az 一 12 十 CCZ 一 112 十 CC)<0 


(3) 


| 


第 3 章 微 积 分 


微 积 分 是 高 等 数学 的 基础 ,在 实践 中 也 有 广泛 的 应 用 。 本 章 主 要 介绍 单 变 量 和 
多 变量 微 积分 的 基本 运算 ,内 容 包括 函数 极限 .导数 、 定 积分 ,不定 积分 .数值 积分 、 级 
数 展开 .Fourier 展开 等 。 

在 Maple 中 , 微 积 分 部 分 运算 男 数 在 内 核 中 ,可 有 直接 调用 困 数 ,如 求 导 diff、 积 分 
int 等 ;部 分 图 数 在 student 图 数 包 中 ,如 换 元 changevar 、 分 部 积分 Intparts、 线 积分 
Lineint 旋转 体面 积 SurfaceOfRevolution 、 旋转 体 体 积 VolumeOfRevolution 等 ; 
Fourlier 变换 和 Laplace 变换 在 inttrans 困 数 包 中 。 


3.1 极限 己 连 终 


3. 1.1 求 极 限 (limit) 


limit(f， =avd9 2 

计算 lmytz)， 其 中 太 为 代数 表达 式 ,z 为 变量 名 ,a 可 为 表达 起 、 数值、 co 或 
一 coydir 为 极限 通 近 方向 ， 可 以 取 值 left( 左 极限 ) right( 右 极限 ) ,real( 缺 省 值 , 实 数 
籼 的 两 方 问 的 极限 ) 或 complex( 复 平面 上 的 所 有 方 问 的 极限 )。 

【 例 1】 计算 单 变量 枯 数 极限 。 

(1) 计算 lim 全 二 全 

光 Himitcc4 x X“3 十 2 x* x 2 十 3)/(x3 一 1),x 一 Infinityy) ; 

4 
(2) 按 定义 计算 sin(z) 的 导数 limsmCz -人 一 Sm 
> limit((sin(x 十 h) 一 Sin(x))/h,h 一 0); 


COS( 民 ) 
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(3 ) 计算 limzsin 一 (图 3-1 ) 
> lmit(xx sinC1/x) ,xx 一 0); 


OU 
> plot(Cxx SIin(17/x),Xx 一 一 0.5..0.5); 


0.4 
0.3 
0U.2 





(4) 计算 lim 二 
人 0 


> jimit(1/x，x 一 0);， 井 结果 不 同 寻 稼 


Undefined 
当 昌 数 极 限 不 存在 时 ,返回 undefined。 从 上 面 可 看 出 ,1 人/z 在 z=0 处 的 极限 不 
存在 ,但 是 左右 极限 是 存在 的 。 
> lmit(17/ xx 一 0,jeft) ,limit(17/ xx 一 0,rlight) ; 
(5 ) 计算 limsin 一 
> limit(Csin(17/x) ,x 一 0 ) ; 
一 ]. .| 
函数 sin 二 在 x 一 0 处 的 极限 不 存在 ,输出 “一 1.. 1 表示 函数 值 在 区 间 [ 一 1,1 
中 振荡 。 
《6 ) 计算 limz 
> limit(xay,x 一 Infinlity) ; 
hm 


当 Maple 无 法 计算 函数 的 极限 时 ,返回 极限 表达 式 。 在 上 例 中 , 因 系 统 无 法 确 
定 a 的 值 , 故 无 法 计算 。 在 增加 a>0 的 条 件 后 ,又 可 以 计算 了 。 


> limnit(Cxayx 一 Infinity) assuming a> 0; 
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册 看 看 与 limit 相对 应 的 惰性 函数 Limit 的 作用 。 
ec 一 e 饼 
人 吕 算 ]WCRCSROECS 


> Limlit((exp(ax X) 一 exp(bx x))/(sin(axX) 一 SinCb x* Xx) ),x 一 0); 
和 
in( 一 ee 一 ee | 


xD 一 SInKOT) 


> value(%); # 用 value 计算 函数 极限 
] 


(8) 计算 lim(1 十 过) 

> Limlit((1 十 1/x)”x,x 一 Infinity) 王 limit((1 十 1/x)*xy,x 一 Infinity) ; 
加 (0+z) 一 

【 例 2】 计算 多 变量 另 数 极限 。 

(] ) (5 一 


st 二 区区 一 CE (1 wy9， 
3 


(2) limz 荆 2( 图 3-2) 
人 
> limits((x 十 y)/(x 一 y) ,{(x 一 0,y 一 0));， 井 极限 不 存在 


undefined 


> plot3d((x 十 y)/(Cx 一 站 ,xx 一 一 3. .3,y 一 一 3. .3)7 井 看 看 函数 图 形 
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In( 交 十 coOsy) 
(3,) hm 站 十 
> lsass Gy ii eolyn 井 按兵不动 ,不 做 极限 运算 


limit 2 和 工 一 yy 一 0) ) 


> lmit(lnmlit(ln(x 十 cos(Cy) )/(Cx2 十 Y2),x 一 1),y 一 0); 
ln(2) 
比较 计算 二 重 极限 的 两 种 方式 ,分 别 为 CD limf(z,y) 和 (iD lim(limf(z,y))。 


(iD 式 将 计算 二 元 函数 的 二 重 极限 化 为 两 次 计算 一 重 极限 ,有 时 (i 式 不 能 计算 的 极 
限 (U) 式 能 胜任 。 


3. 1.2 检验 连续 性 


连续 性 是 困 数 的 一 个 重要 性 质 , 用 iscont 语句 可 以 检验 函数 在 给 定 区 间 上 的 连 
， iscont( 表 达 式 ， x 一 a. . b, 选 了 ，， 2 ， 
按 选项 检验 表达 式 在 区 间 a~ 上 的 连续 性 。 当选 项 为 ， open ' 或 缺 省 时 ， QQ 一 
是 开 区 间 ; 当选 项 为 “close 时 ,ao 一 0 是 闭 区 间 , 此 时 要 求 函 数 在 端点 的 单 边 极限 存 
在 且 有 限 。 


【 例 3】 检验 函数 的 连续 性 。 
> iscont(1/x,x 一 0..1); # 1/x 在 开 区 间 上 连续 
true 
> iscont(1/x,x 一 0..1， closed ); # 1/x 在 闭 区 间 上 不 连续 
false 
因为 困 数 1 人 在 二 =0 处 的 左 极 限 不 是 有 限 数 , 所 以 是 不 连续 的 。 
> lscont(1/(x 十 a),x 一 0. . 1 ); 





FAIL 
因 不 知 < 的 全 ,所 以 无 法 确定 盟 数 的 连续 性 ,返回 FAIL。 


3.1.3 桔 找 间断 点 


寻找 曙 数 或 表达 式 间 上 断 点 的 困 数 有 singular discont 和 fdiscont。 
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singular( 表 达 式 ,变量 ， 区 间 ) 表达 式 在 区 间 内 的 奇 点 





discont( 表 达 式 ,变量 ) 表达 式 的 间断 点 ， 学  ， 
全 scomt《 志 达 式 ， 0 分 辩 “ 人 
0 数值 方法 求 表达 在 区间 内 的 间断 上 


【 例 4】 观察 下 列 男 数 的 间 上 断 点 。 
> Sngilar(l/ (2 一 3 和 二 2277 





2 
> SingularCtan(x)v, 1. ,117， 
全 放风 训 半 同和 半 同和 刘 
2 2 2 2 
3 LSEO 而 本 人 信 误 2 一 了 基 坟 十 2 7 
和 本 4 


> Singular(tan(x) ) ,discont(Ctan(X) ,X) ; 
| 一-_Z1 一 zx 十 去 r| 9 | 2Z2 一 十 却 r| 


> discont(TL KE 3 一 1) 天 SlimnCX)7XD 3 
(1 Z1 一 》 


3.2 村 数 与 微分 


3.2 1 末 手 (df 人) 


diff(f,xl,…，,xn) 
diff(f,[xl,…,xn) 
计算 表达 式 关于 变量 zl,zz，……z 的 俩 导数 ,其 中 zi,zz，……z, 可 重复 出 现 。 
例如 ,diff(f,xl$ml,x2$m2,… xn$mn) 计 算 偏 导数 2 在 对 多 个 变量 
求 导 时 ,依次 调用 diff 求 导 ,并且 diff 假定 各 偏 导 可 以 调换 次 序 。 


【 例 5 单 变 量 求 导 。 
(1) 计算 cos (zz) ，arctan ( 工 ) 
> diff(CcosCx) ,x) ,diff(Carctan(Xx) ,X) ; 


02 
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] 
一 SI 位 ) ) 丁 十 了 
dfz dd/ 
(2 计算 芭 (人 dz ER ) 


> dif( 拭 X)AgCX)，X) ; 


全 (Cr) fr)( 人 gz)) 





和 (并 ) BF() 
> diff(x/sinC(x)，Xx 中 4); 
”24cos(z)3 20cos(z) ，24zcos(T) 28xzcos() 5 
Sin( TD) sin 六) Sin( 六)” Sin( 妨 sin 六 ) 


【 例 61 多 芭 量 求 导 。 


、 3 />， y ) 
(1) 计算 3 


> 于: 一 Xxy 十 xy:， dfftty xy yy); 
一- 


> diff(sinC(xxy),x,x); 井 或 用 difft(CsinCxx y),x$2) 
一 SinCyZ)y 
1 
> diff(sin(xxy),y 和 3,x$ 27) 
cos(CyzZ) 昂 怒 十 6sin(yz)yx 一 6cos(CyZ)7 
> diffCexp(Xx<yx<2Z) xyy2]); 
ecss) 十 3zyreCns) 十 当 2 2 (Dr) 
> diff(exp(xxyxz),[j); # 求 导 变 量 列表 为 空 时 ,返回 原 蝎 数 


(TV )》 


e 
困 数 Diff 是 对 应 的 diftf 的 惰性 函数 ,使 用 格式 与 di 二 相同 。 
> Diff(CinCx-sqrt(a2 十 xX2))，X) 3 


交 ln(z 十 v 殉 干 二 ) 
> value(%6 ); 
1 十 一 一 
十 V 二 元 
> Simpjlify(%% ); 
1 
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> Dif{f(exp(ax x),x$3) 王 diff(Cexp(ax x),x$3); 


0- KE 
本 -一 (az) 
3 化 所 


OO 
(CoY)- lorx 二 天 27，IIECEy) xx 中 1y920) 一 下 入 ( 人 xyy7wX 和 ly 
$2); 
- z 总 2 
FT 和 人 (天 十 (2 


【 例 7】 链 式 法 则 求 导 。 
(1) 设 xb 王 ln(Cz 十 办 十 到 ) ,zz 一 eey 一 1 xz 一 lnt, 求 zt) 


























我 们 知道 x (zi 三 zz (b 十 zy (十 zz (ti)。 
> ui: 一 log(x2 十 2 十 Z2): x: 一 exp(t):y: 一 t:Z :一 log(t): dftCuyt); 
2(e 7 十 21 十 和 
《二 本 十 


(2) 设 x 一 太 zZyyZyz) ,计算 2 





> unassign(f xy yz);iu: 一 f{(Cx,xxy xxyxZz):diff(Cuy,xy); 


(] 《CC 方 光 了 ozyoezy2r 十 CD 站) CoyEITPLS 4 为 近 元 部 92J5 


3. 2.2 微分 算 子 D 
函数 D 称 为 微分 算 子 , 它 的 功能 与 diff 类 似 , 但 是 只 作用 于 函数 形式 ,而 不 是 函 





其 中 ,为 函数 ,为 正 整 数 或 正 整数 序列 ,对 应 于 被 求 导 变 量 。DLij(f) 计 算 关 于 第 ; 
个 变量 的 偏 导数 。DLi]j(f)(Cx) 计 算 点 并 处 的 导 函 数值 。 例 如 
> DCsin)(a); 井 或 DCx-=>sin(x))(a) 


cOS(Ca ) 
D 作用 于 函数 sin, 得 到 函数 cos, 输 入 和 输出 都 是 函数 名 ,不 需 给 出 目 变 量 。 
> DCX=X2) ; 

5 


【 例 83】 微分 算 子 D 与 di 妊 。 
> 〔D( 扩 区 区 一 (773 
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(DCP)(CmD 一 所 FCz) 
> Slimplify(o%0 ) ; 
0 


由 上 面 的 计算 可 以 看 到 D(f)(x) 等 效 于 diff(f(Cx) ,x) 
> DID(CD)),(DQOQn)(H); 
了 有 谎 gDA《 鸭 
对 了 求 高 阶 导数 ,可 以 逐次 求 导 ,也 可 以 使 用 简洁 的 形式 。 
人 
(ZIy) 


下 (zy) 一 >e 
COy)=e 9 (9 
9 
> DT[I 束 3.3 大 2 《从 ， 间 计划 
(Zy) 一 6ye 十 6 六 y e(Czy) 十 ze 3 e(zy) 


3.2.3 隐 有 函数 求 导 


二 RE :区 : 光 风 :请 2 2 
六 0 3 了 2 2 0 5 
人 ir mpl citdif f， u) 0 


从 隐 函 数 7(z,2) 一 0 0 其 中 了 是 关于 zx 和 >y 的 表达 式 人 方 
程 或 其 集合 ,z 为 自由 变量 或 其 序列 ,y 为 相关 变量 或 其 集合 ,x 为 ” 的 元 素 或 子 集 。 


【 例 9】 隐 上 男 数 求 导 。 
沪 { * 一 X2 十 3 关 y2 一 ] ， 
> Implicitdiff(f,y,x); 井 计算 y (x) 


,二 加 
3 y 
> Implicitdiff(f,x,y); 井 计算 x(y) 
对 


误 Implicitdiff(Cf,y,x$ 2 并 计算 y ”(X) 
_ 工 工 十 3y 
O 人 


【 例 10】 已 知 理想 气体 的 状态 方程 为 PV 王 RT,P 为 压强 ,V 为 体积 ,T 为 温 
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OVv 1 oP 
大 多: 全 ee 


>Tf: 王 PxV 王 Rx 工 : 
> Impjlicitdift(f,V, ITI) < implicitdiff(f, 工 ,P) x* implicitdiff(f,P,V) assuming 


R : :constant; 





| 
Z 十 y 十 z 一 0 
有 | 
【 例 1 忆 知 | ， y。zZ 一 SIn(CZ) 计算 基站 Br 
> 人 一 人 《X 十 y 十 z,X 类 V 关 区 SI 竹 让， Impjlicitdliff(f yyz) 2 芭 ) 多 
= 一 一 二 十 一 es ] 
D(z) 一 天 2 二 0OSCz) 7 0 


> Impljlicitdift(t yy zj (yy zy, xnotation 一 Diff) ; 


全 司 和 D 一 一 二 一 cs] 
237z- ”一 zz 十 zy 一 cos(z) 'DQz” 人 0542) 


当 方 程 的 个 数 大 于 相关 变量 的 个 数 的 时 候 , 或 者 导 函 数 不 存 在 的 时 候 ,implicit- 
diff 返回 FAIL。 


> Implicitdiff(f ,zy,xyy) ; 
FAILL 





0 ne x 一 二 、 0 
Stx=a 坊 , 基 理 )， 证 和 后 必 国 

其 中 选项 有 continuoOus、 CauchyPrincipalValue 和 Allsolutions。 选项 continuous 不 
考虑 积分 中 的 不 连续 点 ,CauchyPrincipalValue 视 积 分 在 不 连续 点 的 左右 极限 为 同 
一 极限 ( 允 近 速度 相同 ) 且 正 负 无 穷 可 以 相互 抵消 ,而 AllSolutions 则 给 出 定 积 分 在 
不 同情 况 下 所 有 的 解 。 


【 例 12】 计算 单 变 量 积分 。 


> Int(CSInRCX) ,X) ; 
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一 COSCZ) 
> tnt(CSinCXx) ,Xx 一 0. .Pi); 井 Pi 为 数值 (大 写 也 ) 
2 
> int(Csin(x),x 一 0.. pi); 井 pi 为 符号 (小 写 p) 
1 一 cos(CT) 


> nt(exp( 一 X2),X) 一 Int(Cexp( 一 X2)，X) ; 
| qz 一 训 Ver 三 (并 ) 


> blot(rhs(% ),x 一 一 10..10); 井 画 出 积分 图 数 





图 3-3 


人 > { : 一 ft(a 一 ]) 关 (1 一 t)"(b 一 1) ， IntGft,t 一 0. 。 1) 一 int(f,t 一 0. 。 ] ) ; 


工 (CO)E(c 7 
FPCB 十 a) 


| fa-DK1 一 站 OrDdi 一 
0 
> int(1/x,x 一 一 1]..2); 井 0 是 1/x 的 奇 点 
undefined 
> int(1/x,x 一 一 1..2，CauchyPrincipalValue ); 
InGC2 ) 
> int(1/x,x 一 8..2); 并 为何 没有 计算 结果 ? 
Warning，unabjle to determline 过 0 is _ between a and 2; try to Use asSsumptlons 
or set EnvAllsolutions to true 
“1 
|. dz 
~ int(1/x,x 一 a. .2，AllSolutions ) ; 
undefined a<<0 
| Ce 2 一 (0 
一 In(Ca) 十 in(C2) 0<a 
> int(1/(x 十 a),X 一 0. .2); 
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undefined AndCoansyE2<0) 
(Co 十 na2) otherwilse 
> int(1/(x 十 a) ,x 一 0. .2，continuous ' ) ; 
一 mkaj) 十 (十 切 


3.3.2 重 积 分 


在 Maple 中 , 重 积分 是 通过 多 次 调用 单 变量 来 实现 的 。 例 如 : 





而 student 盟 数 包 则 提供 了 计算 二 重 积 分 和 三 重 积 性 盟 数 Doubleint 和 
Tripleint。 它 们 的 用 法 如 下 : 





其 中 Co0Ocodyey 矿 为 积分 区 域 端 点 , [Domaln 为 积分 区 域 的 名 称 。 
【 例 13〗 计算 重 积分 “|| edzdy， 





= 一 WeEl 
中 dzdydx 
3 9 
人 人 一切 十 有 十 别 
0<zy, yx 
> nEOGXDC 二 7 冯 )， 交 一 一 1 1 二 一 1 1535 


e 一 一 2 十 人 
> with(Cstudent) ; 
LD，Diff，Doubleint，Int，Limit，Lineint，Product，Sunm， Tripleint，change- 


var， compjletesquare， distance， equate， integrand， intercept， intparts， 
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leftbox，ljleftsum，makeproc，middlebox，middlesum，midpoint，powsubs， 
rlghtbox，rlghtsum，showtangent，simpson，slope，summand，trapezoid ] 
> Doubjeint(exp(x 十 y) ,x 一 一 1]..1,y 一 一 1..1); 


| | ecertodzdy 
惰性 男 数 Doubleint 无 法 直接 计算 出 数值 积分 的 结果 ,利用 value 计算 其 值 。 


> value(0% ) ; 
一 十 作 
> Doubleint(2 * sqrt(x 2 十 yY2),x 一 0. .yyy 一 0. . 1 ) ; 


| 区: 下 
汪 value(0%10 ) ; 井 上 式 中 %E 忆 . 己 = 次 序 不 可 交换 
二 V2Z 十 二 In(1 十 V2) 


> Doubleint(2 * sqrt(x 2 十 yY2),x 一 0. .yy 一 0. . 1) 二 
int(int(2 x* sqrt(x2 十 Y2) ,x 一 0. .y),y 一 0. . 1); 


可， 
| 2 V 太 十 六 dzdy 一 二 VZ 十 嘉 ln(] 十 V2) 
se ItCIEECURECT 7 全文 :WPZ SS 一 0 虐 一 一 2 一 1 二 2。 
人 
让 ln(2) 
s5 Tepleint( -xz OO 173 
本 | 

| |， ore 

> value(0%0 ) ; 


D ] 
和 ln(2 ) 
3.3.3 换 元 积分 


为 了 帮助 学 生 在 学 习 积 分 过 程 中 掌握 基本 的 方法 ,Maple 提供 了 换 元 积分 与 分 











3 5 这 AR 2 2 0 ET 二 人 0 
次 7 让 CC 和 
、 和 2 2 2 
本 了 四 


其 中 了 是 积分 表达 式 (假设 积分 变量 名 为 xz),* 为 形 如 hz) 一 g(z) 的 表达 式 必 是 新 
的 积分 变量 。 当 太 为 重 积 分 的 时 候 ,x 为 新 变量 列表 。 使 用 changevar 之 前 ,需要 先 
调用 student 困 数 包 。changevar 也 可 以 用 于 极限 、. 求 和 表达 式 的 变量 替换 。 例 如 : 
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> with(Cstudent): A :一 Int(GfCx)， xy) ; 
有 :一 | cmd 
> changevar(CXx 一 gfCt),A，,t); 
| egco)(SgCD)d 


> 了 :一 Int(Csqrt(1 一 x2),，x 一 0. .1): 了 BB 一 changevar(xX 一 Stn(Cu) ,也 ,u) ; 


| _VT= 痉 tx= | V]T 一 sin(z)2zcos(Cx)dt 


刁 


> value( 0 ) ; 


【人 例 14】 用 换 元 困 数 计算 积分 。 
GD /ITTd7r ， 


分 析 :因为 v 2 十 六 一 并 一 导 一 (>z 一 去) , 今 zx 一方 一 sint 


> changevar(x 一 17/2 王 3x Sin(t)/2,JInt(Csqrt(2 十 X 一 X2)，X) t); 


3 
2 


> value(9%0 ) ; 





号 十 袜 sin(1) 一 二 (1 十 3sin(i))zcos(z)di 


于 VT1 一 SinfCt) sin(D) 十 总 


> simplify(Csubs(t 一 arcsin((2x* x 一 1)/3)，%))， 井 将 变量 tt 还 原 为 广 
A 3 二 二 Px 一 于 V2 十 均一 并: 十 总 arcsin( 挟 z 一 二 】 
> int(Csqrt(2 十 X 一 X2) ，X) 


一 工 (1] 一 27) V2 十 六 一 民 十 呈 arcsin{( 羡 x 一 亏 ) 
4 8 3 3 
(2 ) | vc 一 xdzr 全 0。 


今 并 一 CSint 


> changevar(X 一 axSsnGt), IntCsqrt(a 2 一 XL)，X) yt); 
| vVv 妨 一 asin 人 (idcos(CtDdt 
> value( 吕 ) assuming a> 0; 


C (二 sinCo) VC 一 她 Sin 人 zt) 十 广 aarcsin(sin(1) ) ) 
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> Subs(sin(t) 王 x/a,%); 井 将 变量 t 还 原 为 x 


(了 放风 胡 
2 Q 


> IRtCSqEtGa 2 一文 2) ,元 ) assuming as 05 


记 x MG 一 元 十 广 azarcsin{ 工 ) 
Q 


十 却 aarcsin{ 工 ) ) 


【 例 15】 重 积 分 的 变量 替换 。 
> 曲 :一 Doubleint(exp( 一 X2 一 六 2)， xyy); 


We ||e drdy 


> changevar({(Xx 一 Tx cos(t),y 一 rx Sin(t)},S,|r,t]); 


由 下 
et ) 





















二 
PPT 过 过 了 网 个 AS 世 
芝 2 和 2 人 光 ER 


计算 zw 一 | vdv, 假 设 惰性 积分 的 形式 。intparts 是 惰性 图 数 , 它 


的 运算 结果 中 仍 有 积分 式 , 还 要 调用 value 等 郴 数 才能 算出 积分 值 。 使 用 intparts 之 
前 ,需要 先 调用 student 困 数 包 。 


太 可 写 为 | 和 


【 例 16】 计算 |inzdz,| zeosrdz,| -ds 人 
杂 (CL 


> with(Cstudent ) : 
> Intparts(Int(ln(x) ,x) ,jn(Cx) ); 


个 汪 本 天 | id 


> value(0%1 ) ; 


ny 一 过 


> ntpartsktjlntt 三 关 COSL 了 7 力 ， 习 克 
SIn(CZ) 并 一 |sincz)dz 


> value(0%1 ) ; 
coOS( 关 ) 十 Sin( 交 ) 天 


tpartskIntCX2sqrtCe OrEEE2D 人) 
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z Vi 干 严 一 | v 二 dx 
> value(% ) ; 
方 7 Vi 干 下 一 广 o2ln(x 十 W 还 干 开 ) 
> intparts(Jnt(x-2 x* exp(x),x),x2); 井 对 x2 做 第 1 次 分 部 积分 
er 一 |2ze dz 
> intparts(M%,x); 井 对 xx 做 第 2 次 分 部 积分 
Ze 一 2zxer 十 |2e qd 


> value(% ); 井 计算 积分 值 
刀剑 一 2er 十 2er 


3.3.5 曲线 积分 


student 国 数 包 中 的 Lineint 困 数 可 以 计算 曲线 积分 。 
Lineint(f， xyy) ， 





.ineint( 所 xyy， 2 人 才 。 2 “ 


【 例 17】 曲线 积分 计算 公式 。 


> with(student ) : 
SeIREC 皂 各 1) 区 7 


| From yy) (车 ) 由 


, 演 Linelnt(Cf{(x， V) ”XY 一 Q。。 b ) ; 


0 d 帮 
| 7rczcn yy ( 证 co) 配 
> Linelint(f(x,y) ,xyyvt); 


| czco，yCD) (全 zc 二 (SCD) d 


> Lineint(f(xy,yy,z),x 一 uyy 一 Vv,Z); 


Joevay 区 六 区 六 
Lineint(f(x,y),x,y) 计 算 Fzyy) 关 于 参数 > 的 线 积 分 ,> 的 范围 可 以 指定 


一 a&.b。Lineint 只 做 简单 的 化 简 , 欲 做 进一步 的 计算 可 以 使 用 value 咽 数 。 
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【 例 18〗】 〈1) 计 算 摆 线 z=a(t 一 sint) ,y 一 a(1 一 cost) ,0<i 雪 27x 的 长 度 ,a 盖 0。 
LIGHTEG1 ， 文 一 下 % 《tt 一 SC 7 一 cos(t)) vt0 .2 基 Pi)， 


2 O 国有 2 避 加 2 
| 同人 sin(1)) ) ) 下 (ta cos(1)) ) ) d: 


> value(% ) assuming a> 0; 
8a 


(2 ) 计算 曲线 积分 | (z: 十 多 十 近 )d ,其 中 区 是 螺旋 线 二 Rcosti,y 王 Rsint,z 一 
) 


人 在 0 委 才 2x 的 弧 段 。 
> Linelnt(x 2 十 yY2 十 Z2,x 一 人 xx cos(Ct),y 一 Rx* sin(t) ,z 一 Kx tt 一 0. .2 x* Pi); 


2 
| CEoagiE 二 Rintoas 二 的 





9 
3 他) 





(总 CRcos(D)) ) 全 (2CRsinCD)) 呈 | 


) d 


> value(0% ) ; 
2 /8 十 尺 2 十 与 V R 十 民 28T 


3. 3.6 葡 转 曲面 积分 


SurfaceOfRevolution( fCx) ， 3 。 人 


而 四 王 y 一 1Cz),zE[a,O 绕 负 旋 转 所 得 的 旋转 曲面 的 表面 积 。 而 
VolumeOfRevolution(f(x) ,x 一 a.. 和 


则 是 计算 平面 曲线 ) 一 xz),zE[La,p] 绕 > 铀 旋转 所 围 成 的 旋转 体 的 体积 。 用 户 还 
可 以 通过 设置 选项 来 改变 旋转 的 方式 。 


Surface( fRevolution( 长 x) ， 二 a.， 和 .b ， 选项 ) 


VolumeOfRevolutiontt f (x)， x 一 a a. .b, 选 本 


在 使 用 SurfaceOfRevolution 和 VolumeOfRevolution 项 孝 六 前 站 ， 二 要 先 调 用 
student| Calculusl | 子 困 数 包 。 


【 例 19】 请 观察 SurfaceOfRevolution 和 VolumeOfRevolution 国 数 中 选项 的 效果 。 

> with(CStudentl Calculusl ] ) ; 

| AntiderivativePlot，AntiderivativeTutor，ApproximateInt，ApproximateInt- 
Tutor, ArclLength, ArcLengthTutor, Asymptotes, Clear, CriticalPoints, Cur- 


veAnalysisTutor, DerivativePlot, DerivativeTutor, DiffTutor, 世 xtremePoints， 
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FunctionAverage， unctionAverageTutor， FunctionChart， FunctionPlot， 
GetMessage， GetNumProblems，GetProblem，Hint， InflectonPoints，JIntTiutor ， 
lntegrand， JInversePlot， InverseTutor。， LimitTutor，MeanValueTheorenm ， 
MeanValueTheoremTutor， NewtonQuotient， NewtonsMethod， Newtons- 
MethodTutor,PointInterpolation ,RiemannSunm ， RollesTheorem, Roots,Rule， 
Show， ShowIncomplete， ShowSteps， Summand， SurfaceOfRevolution ， 
urfaceOUfRevolutionTutor，Tangent， TangentsSecantTutor，TangentTutor， 
JaylorApproximation， TaylorApproximationTutor， Understand， Undo， 
VolumeOfRevolution ,VolumeOfRevolutionTutor。， WhatProblenm | 

> wurfaceOfRevolution(fC(x) ,x 一 a. .by) ; 


| zco 1V( 且 ro) +ldx 


> SurfaceOfRevolution(Csin(Cx) ,0 2 x Pi) ; 


4rV2 十 4rln(I 十 V2) 
> SurfaceOfRevolution(Csin(x) ,0. .2x Pi,output 王 plot) ; 


The Surface of Revolution Around the Horizontal Axis of 
f(X)=SIn(X) 
on the Interval [0, 2*Pi] 





3-4 
> SurfaceOfRevolution(Csin(x) ,0. .2 xx Pi,output 王 plot,axis 一 vertical) ; 
The Surface of Revolution Around the Vertical Axis of 


fxX)=Sin(X) 
on the Interval [0, 2*Pi] 
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> VolumeOfRevolution({f(Cx) ,x 一 a..b); 
D 
| rr(z) dz 
> VolumeOfRevolution(Csin(x) 十 1,x 一 0. .2x 了 Pi) ; 
3 区 


> VolumeOfRevolution(sin(x) 十 1,x 一 0. .2 x* Pi,output 一 plot) ; 


The volume of Revolution Around the Horlizontal Axis of 
fx)=SIn(X) 十 ] 
on the Interval [0, 2*#PI1] 





3. 3.7 ”上 房 天 和 夭 闻 


在 一 些 实际 问题 中 ,经 常 遇 到 积分 区 间 为 无 穷 区 间或 者 被 积 困 数 在 积分 区 间 上 
具有 无 穷 间断 点 的 积分 ,对 定 积分 加 以 推广 ,形成 了 广义 积分 的 概念 。 
在 Maple 中 ,广义 积分 仍 使 用 int 图 数 计算 ,同样 可 以 用 换 元 函数 changevar 和 
分 部 积分 困 数 intparts。 
【 例 20】 计算 积分 端点 为 无 穷 的 广义 积分 | ”Te ,| 一 上 - 
> Int(1/ (1 十 x2),x 一 一 Infinity. .infinity) 一 
int(1/(1 十 x 2),x 一 一 Infinlity. .infinity) ; 
| 二 二 sx 
> Int(1/(xx log(x)`2),x 一 exp(1): .infinity) 三 
Int(1/(xx log(x)`*2),x 一 exp(1). . Infinity) ; 


瑟 ] 
| 本 二 
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arcSsln 


【 例 21】 计算 积分 区 间 含 无 穷 间 断 点 的 瑕 积分 | 


由 一 -这 


EECSIR6 RE dr 区 1 一 2 一 7 三 


FECSIDCEJ1Sgrt(C1 一 X2J = 人 >， 


1 ，arcsin 并 
2 





5 
汪汪 


0 V 1 一 并 


3.4 数值 积分 


在 数值 计算 方法 中 有 许多 数值 积分 的 近似 算法 ,如 和 抢 形 公式 、 梯 形 公式 .辛普森 
公 却 等 。Maple 的 student 函数 包 中 也 有 与 这 些 算 法 相对 应 的 函数 ,包括 左 和 矩形 公 
式 (leftsum) 中 和 抢 形 公式 (middlesum) \ 右 和 矩形 公式 (rightsum) 、 梯 形 从 \ 式 (trape- 


Zolid ) ,半音 秋 全 \ 式 (simps nj 





其 中 Faz) 为 被 积 函 数 ,a,b 为 积分 区 间 , 为 区 间 分 段 数 ( 缺 省 值 人) ， 例 如 ， 


> with(student ) : 
leftbox(sin(x) * ljn(x) ,x 一 1. .4,6,color 一 red); 





3-7 
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> leftsum(sin(Cx) * ln(x) ,x 一 1..4,6)， 


二 (sin(1+ 二 )mn(1+ 站 ) 


0 


> value(2 ); 


去 sin( 立 )in( 立 ) 十 去 sinC2)In(2) 十 款 sin( 瑟 )In( 忆 | 
) 


十 豆 sin(3)ln(3) 十 二 sin( 亏 JIn( 世 
> evalf(% ) ; 
0U. 0493443882 


> SImpson(CSsInCx) < ]jn(x) ,x 一 1. . 4) ， 


2 
辐 


> SImpson(CSIin(Xx) x ln(x) ,x 一 1. .4,6)， 
和 2 
SIn(4)Lin(2) 十 村 (2sin 人 7 十 直人 7 二 到 
2 
十 二 (> sin(1 十 DIn(1 十 六) 
一] 
> evalf(02%0 ) ; 
0. 4291629716 


计算 定 积分 的 数值 近似 时 ,更 为 一 般 的 方法 是 使 用 evalf 函数 ,或 者 用 浮 点 数 的 
形式 表示 积分 的 范围 。 





最 常用 的 是 evalfcatrr reTTmr int 函数 ， 
> Int(sInGCX) x% ]nCX)，X 一 二) ， 
一 Los) 十 CC) 

> evalf(% ) ; 

0. 4277568450 
> evajf(Int(sin(x) < ]n(x) ,x 一 1. .4)); 

0. 4277568450 
用 浮 点 表示 积分 的 范围 时 直接 给 出 数值 积分 值 。 
> Int(SinC(x) * jn(x) ,x 一 1.0. .4.0); 

0. 4277568450 
下 面 我 们 比较 以 上 3 种 方法 的 运行 时 间 。 
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> Testart; tlme(Clnt(SInC(X) < ]n(x) ,x 一 1.0. .4.0)); 
time(evalf(Int(Csin(Cx) x ln(x) 5 
time(Cevalf(intCsin(x) x* ln(x) ,x 一 1..4))); 

QUle 
0. 016 
0. 218 

由 此 可 见 ,evalf(Cint(…)) 所 花费 的 时 间 要 远大 于 evalf(Int(…)) 所 花费 的 时 间 ， 

而 evalf(int( 浮 点 )) 与 evalf(Int(…)) 花 费 的 时 间 几 乎 一样 。 


3.5 级 效 


3.5.1 和 硕 级 数 展 开 (Sseries ) 





”ed ries( 攻 x) ,x 一 a 1 人 
5 出 Ps -处 的 雹 汪 展 式 或 % 项 工 al ws we 要 
示 在 z= 王 0 处 展开 。?2 为 非 负 整数 , 缺 省 值 是 6。 


【 例 22】〗】 寡 级 数 展开 。 


> Serles({f(Xx) ,入 ) ; 
7(0) 十 (DCA)(O)z 十 广 ((DP )( 记 )(C0)22 十 二 ((D9 CCG 和 7 


] 


十 记 1 红 太 并 Da 直人 国 让 ROOT 


]120 
> Serles(1/(1 十 X) ,X) 
人 
> Serles(1/(1 十 x) ,xx 一 Infinity) ; 


二 一 点 十 方 一 去 十 点 十 O( 访 ) 


> SGFies(1 (1 十 X) 天 王 一 上 7)， 
(se 


>Tf: 一 XxSin(3 关 X)，SsSeries({f,x) ; 
3 和 一 训 于 并 基 


> gg : 一 convert(% ,polynom ) ; 
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5 一 3 了 一 广 


2 人民 生生 15 二 全 一 |， ],y 一 一 0. 5. .0. 8) ; 


-10105 -04 0.2 0.4 0.6 0 10 


3. 5.2 泰勒 展开 (taylor) 


> 1 
对 jz) 在 z=a 处 做 ?次 泰勒 展开 。 
【 例 23】〗】 泰勒 级 数 展开 。 
> taylor(f{f(Cx) ,x) ; 
帮 0) 十 (DCAD)(O)z 十 却 C(D2)(CP)(0) 妇 十 二 (CDe)CP)(O)z 


台 (二 ) 4 哈日 介 记 二 6 
T3((D ) 下 关头 订 《 从 罗 琵 TT50CCD 有 DO 


> taylor(1/ (1 十 x) ,x 一 一 1); 


Error，does not have a taylor expansion，try series() 
3.5.3 多 元 泰勒 展开 (mtaylor) 


mtaylor(Kx),x= 一 an 
对 /rz) 在 Z= 一 4 处 做 ?次 泰勒 展开 ,其 中 za 为 变量 列表 或 集合 ,为 非 负 整 
数 , 缺 省 值 是 6。 与 series 函数 及 taylor 函数 不 同 的 是 , mtaylor 的 返回 值 中 不 含 
U(z) 项 。 


【 例 24】 多 元 泰勒 级 数 展开 。 
> mtaylor(f(xy,yy,z) ,| xyvy,z],3)， 
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05005 二 GD 态 5400OoasPGODLOk95050D)WNPEUURALC DJKO OO) 


十 坟 (Di。 (09050705 汪 十 EDisk 轧 天 05050)9Ho 用 050 0 


十 方 (De(C)(0,0,0)32 十 y(Dus(CD)(0,0,0)z 十 方 (Dis(C)(0,0,0)z 


35 IntaylorCexpk 工 十 7 No SI 
1 十 xz 十 ?十 广 妇 十 3Z 十 方 区 
> mtaylor(sqrt(x-2 十 yY2) ,| xy,yj]); 
元 


3.6 积分 变换 


Maple 的 inttrans 果 数 包 提 供 了 一 批 有 关 积 分 变换 的 图 数 , 如 Fourier 变换 、 
Laplace 变 换 等 。 这 些 变换 特别 有 助 于 微分 方程 的 求解 。 


3. 6. 1 Fourier 变换 


. ， fourierCf(Dbw 

。 “ invfourier( PFCw)， w， D 
5 放 fouriersin( f 《t) ， 1; 扩 
fouriercos(f(b， ES) 


分 别 计算 Fourier 恋 换 Fs) == 三 De dy 及 其 反 变换 /CD 一 关 | Foyerdw， 


Fourier Sine 变换 Fo(s) 一 。 三 | Fn)sin(Cx)dt 和 Fourier Cosine 变换 Fw (Cs) = 


/二 | 太 (t)cosCx)dt 。 例 如 : 


> with(inttrans ) ; 
[addtable, fourier, fouriercos, fouriersin, hankel, hilbert, invfourier, invhilbert， 
invlaplace,invmellin,laplace,mellin,savetable | 
3 OUrier( 下 攻 2 
2r(Dirac(Crzw) 一 Dirac(C2，zo) ) 
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> Invfourier(% ,wy,t); 
十 雹 
> turier(17 (1 十 臣 2》vt 3 
re Teavislide( 一 记 ) 十 e Heaviside(Czo) ) 


> invfourier(% ,wyt) ; 





3.0.2 Laplace 变换 


laplace( 代 t)， 本 2 
invlaplace( F( 8 ,s， 二 


分 别 计算 Laplace 变换 工 (s) 一 | 太 t)e "di 及 其 反 变 换 。 


> with(inttrans):, {f(t) : 一 tr3 xx cos(Ct) ， 
> 上 (s) : 一]aplace(f(t) ,tys) ; 


6(Cy 直上 上 =) 


3) : (《 噶 十 1 3) 


> InvlaplaceC(F(Cs) ,s,t); 


妃 cOS(CZ) 


inttrans 曙 数 包 中 类 似 的 变换 还 有 Hilbert 变换 F(s) 一 二 | 人 di , Hankel 


变换 互 , () 一 | DBesseUonea Vsxdi ,Mellin 变换 M(s) 一 | di ,以 及 
它们 的 反 变 换 。 


3.6.3 离散 变换 


] 2 


离散 Fourier 变换 " 一 (大 *““) zx 是 离散 Fourier 分 析 中 常用 的 一 种 变换 . 


)22C72 


DiscreteTransforms 本 于 生生 避 列 和 Fourier 变 抽 阳 汪 


其 中 数据 的 类 型 必须 次 Vector、 se 起 和 全 如， 


> wlth(DiscreteTransforms ) ; 
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|L FourierTransform，InverseFourierTransform 
> X :一 Array(L1,3,5,7]): y : 一 FourierTransform(Cx) ; 
征 0 站 
> jnverseFourierTransform(Cy) ; 
[1. 十 0. TI,3. 十 0. TI,5. 十 0. TI,7. 十 0. I| 

FourlerIransform 果 数 和 InverseFourierTransform 函数 仅 适 用 于 数值 计算 ,无 
法 进行 符号 计算 。 用 户 可 以 在 选项 中 设置 变换 的 算法 algorithm= mintime( 快 速算 
法 , 缺 省 值 ), algorithm = minstorage( 内 存 优 化 算法 ) 或 algorithm 王 DFT( 古 典 
算法 )。 


Z 变 换 Z(z) = Fooz 也 是 离散 系统 分 析 中 常用 的 一 种 变换 ,是 Laplace 恋 


1 一 (0 


换 的 离散 形式 ,主要 应 用 数字 信和 号 处 理 、 控 制 论 和 解 微分 方程 等 离散 系统 分 析 中 。 
sa 


芝 和 SR 有 全 入 人 
本 党 和 0 0 人 
开 YI 5 2 0 2 兴 六 2 人 好 - 过 这 
0 8 : 汉 交 人 机 2 0 0 潍 ， 电光 
< 


2 0 7 9? x， 3 





> ZransC1/ 2 下? 六 ) 





> invztrans(% ,xyn) ; 


1. 计算 极限 。 


(]) 1 世 一 e_ ，VZarctanz 一 | 





Tez0 SSlIDZ 《2 1) Jr / 人 一 六 
(3) limsm (4) lim(1 一 z) 
一 一 人 村 


2. 求 函 数 的 微 商 。 
(1) y 王 三 Sinz (2) y 一 V Z 十 V Z 十 Vr 
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(3) y 一 jog 十 pair ya0 (4) y 一 全 2 

V 一 并 : 

(5) ef 十 (6) y 一 巡 ,0 


(7) y 一 (coSs 雪 )sm 


3， 计 算 高 阶 寻 数 。 


(1) yy 一 coOST 。cos2r。cos37 


福士 2 


(3) 人 5 





] 一 并 
4.， 计算 不 定 积分 。 
GD) | 2z 一 Deesdz 


2 一 4 
人 | 一 257 
(7) |zeosczyydzdy 
5. 计算 定 积分 。 
1 


(] ) | 人 az 一 4z)?dz 
用 


(4) | 并 dv 
之 抽 dd 
(7 ) |4 | -sinzgd， 


避 避 


(8 ) y 一 Infcos(arctan( 广 (ee 一 er ) ) ) ) 


(2) yy ，y 一 coSsT 
1 十 并 


(4 1) 人 , y 一 
V 一 并 


(2) | 人 -二 ) dz 


(5) | raarctanrdz 


[| 
《3 ) | -一 一 -一 da 全 0 
VC 十 并 


e 一 十] 
9 | e 十 ] c 





《8 ) |mza 一 工 一 y)dzrdydz 





本 1 


(8) |dzldy | md 


昌 站 


6. 求 医 级 数 在 原点 处 的 5 阶 展 开 式 。 


(]) er 


(4) (1 十 7)e 





? 
六 
《2 ) 1 一 了 nA 上 站 


(5 ) cOSZCOSYy 
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4.1 关于 线性 代数 函数 包 


Maple 11 中 提供 了 5 个 窍 阵 和 回 量 运算 的 图 数 包 linaljg、LinearAjigebra、 
VectorCalculus ,Student| LinearAlgebra } 、Student| VectorCaleculus | ,其 中 lnalg 基 
本 皱 LinearAlgebra 和 VectorCalcujus 所 取代 。 在 将 来 的 升级 Maple 版 本 中 ,linalg 
将 会 被 删除 ,推荐 使 用 LinearAlgebra 和 VectorCalculus 困 数 名。 

在 本 章 中 ,我 们 主要 介绍 LinearAlgebra 和 VectorCalculus 函数 包 中 与 线性 代 
数 相 关 的 图 数 的 用 法 ,Student|l LinearAlgebra | 和 Student| VectorCalculus | 因数 包 
含有 教学 辅 寻 功能 ,上 曙 数 包 中 的 图 数 虽 然 形式 可 能 有 所 不 同 , 但 用 法 类 似 , 故 而 忽略 。 


1， 关于 linalg 函数 包 


> with(linalg) ; 

| BlockDiagonal, GramsSchmidt, JordanBlock, LUdecomp,QRdecomp ，Wronski- 
an,addcol,addrowy, adj, adjoint, angje,augment, backsub, band, baslis, bezout， 
blockmatrix, charmat, charpoly, cholesky, col, coldim, coljspacey colspany com- 
panion,concat, cond, copyinto, crossprod, curl, definlite, delcols, delrowsy, det， 
diag， diverge，dotprod ，elgenvals，elgenvalues，elgelnvectorfs，elgenvects，en- 
tetmatrix, equal ,exponential extend {tgausselimy, fibonacci, forwardsub , fro- 
benius ,gausselim，gaussjord，geneqns，genmatrix，grad,，hadamard，hermite， 
hessian, hilbert, htranspose, ihermite, indexfunc, innerprod, intbasis, inverse， 
ismith , issitmllar, iszeroy Jacobian, jordan kernel, laplaciany jeastsqrs, linsolve， 
matadd, matrix, minory minpoiy, mulcol, mujrow, muljtiply, norm, normallize， 
nujllispace, orthog, permanent，pivot，potential, randmatrix, randvector， rank， 
ratform,row,rowdimy,rowspace,rowspanyrref ,scalarmul,singularvals,smith， 


stackmatrix，submatrix，subvector，sumhbasis，Sswapcojl ，Swaprow，syjvester， 
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toeplitz，trace,transpose,vandermonde ,vecpotenty,vectdimyvector,wIonskian | 

linalg 晤 数 包 共有 114 个 男 数 ,可 做 数值 计算 和 符号 计算 ,侧重 于 抽象 的 线性 代 
数 运 算 。 除 了 BlockDiagonal .GramSchmidt JordanBlock 、_LUdecomp、QRdecomp、 
Wronskian 和 惰性 图 数 之 外 ,其 他 函数 的 名 称 都 为 小 写字 母 。 

linalg 下 数 包 的 常用 数据 类 型 为 matrix 和 vectcer, 它 们 都 是 由 数据 类 型 array 以 
及 基本 数据 类 型 list 所 派生 出 来 的 ,不 同 数据 类 型 list array matrix、vector 可 混合 
使 用 。 

在 计算 中 ,具有 类 型 array matrix、vector 的 变量 遵循 后 名 计算 (Last Name 
Evaluation) 原则 , 邵 表 达 式 的 值 并 不 被 立即 计算 出 来 ,必须 通过 eval print 或 evalm 
才能 显示 出 来 。 和 矩阵 加 减法 和 数 乘 仍 用 A 士 B,)A ,乘法 要 用 A 人 入 * 也 ,矩阵 方 寡 或 道 
矩阵 方 宪 可 用 Am ,显示 和 矩阵 则 用 evatm。 例 如 : 

>a: 一 array(| | 1,21,|13,4| 1): ai 


Q 
>b :一 vector(|15,61 ):， bi 
D 
DC 一 at 关 昌 : C 
Qt 头 忆 


> eval(a)yyeval(byyevalimfCcy) ; 


虹 |,[5 6],[17 39 


2. 关于 LinearAlgebra 和 StudentL LinearAlgebra 函数 包 


> with(LinearAigebra ) ; 

[wx，Add，Adjoint，BackwardSubstitute，BandMatrix，Basis，BezoutMiatrix， 
BidiagonalFormn， Blinearfkormn， CharacteristicMiatrix， CharacteristicPolynornalal ， 
Column，CoiumnDimension，ColumntOperation，(Columnopace，LCompanlonmivlatrix， 
ConditionNumber，ConstantMatrIx，LConstantVector，LOpDy，LreateFPermnutatlon， 
CrossProduct, DeleteColumn, DejeteRow，Determinant，Diagonal，DiagonalMatrix， 
Dimension， Dimensions， DotProduct， EigenConditionNumbers， 上 ligenvalues， 
Figenvectors，Equal，ForwardSubstitute，、 上 robeniusForm，GausslanFhmlination， 
(GenerateEquations， GeneratejMiatrIX， Ceneric， (GetResultData 工 ype， 
GetResultShape， GivensRotationMatrix， GramSchmlidt， 瑟 ankelMatrix， 
FiermiteForm, HermitianTranspose, FiessenbergForm, HiibertMatrix, House- 
holjderMatrix，IdentityMiatrix，JntersectionBasis，JlsDefiinite，JsCOrthogonal， 
IsSimilar, jsUnitary, JordanBjlockJMatrix, jordanForm, LA_ Main， LUDecom- 
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position ， ]_eastSquares ,LinearSolve, Map, Map2 ,MatrixAdd, MatrlxFExponen- 
tlal ，MatrIxFunction，Matrixlinverse，MatrlxMatrixMultiply，MatrlixNorm ， 
MatrlixPower，MatnxscalarMultuply，MatrixVectorMultiply，MinimalPolvynomnial ， 
Minor，Moduljar，Mmultipljy，NoUserValue，Norm，Normalize，Nuljs>pace， 
UuterProductMatrIix，Permanent，Pivot，PopovForm，QRDeconmposltton， 
RandomMatrIx，Randomwector，Rank，RationalCanonlcalForm，Reduced- 
RowEcheljonForm， Row， Rowjlimnension， RowOperation， 上 人 owsSpace， 
scalarMiatrlx，SsScajarMultipljy，ScajarVector，SchurForm，SinguljarValues， 
SmithFEorm，StronglyConnectedBlocks，SubMatrix，SubVector，SumBasis， 
SylvesterMatrix, TIpeplitzMatrix ， frace ,Transpose ，IridiagonalForm ,UnlitVector， 
VandermondeMatrix， VectorAdd， VectorAngle， VectorMatrIxMuljtiply， 
VectorNorm, VectorScalarMultiply,ZeroMatrix,ZeroVector,Zip 

LinearAlgebra 函数 包 共 有 120 个 函数 ,以 线性 代数 的 运算 为 主 , 它 儿 乎 禾 关 了 
jinalg 函数 包 的 所 有 线性 代数 功能 。LinearAlgebra 的 函数 命名 比 linalg 更 加 自然 ， 
使 用 更 方便 ,所 有 因数 名 都 以 大 写字 母 开 头 。 

LinearAlgebra 图 数 包 的 稼 用 数据 类 型 为 Array、Matrix 和 Vector, 它 们 都 基于 
数据 类 型 rtable。 除 了 一 般 形式 的 矩阵 ,通过 rtable 还 可 以 表示 一 些 具有 特殊 形式 
的 矩阵 ,如 对 角 符 阵 .三 角 和 矩阵 、. 带 状 拭 阵 . 稀 芯 矩阵 .结构 挎 阵 等 。 这 样 在 数值 计算 、 
符号 计算 以 及 混合 计算 的 时 候 , 尤 其 是 在 大 规模 矩阵 计算 的 时 候 ,LinearAlgebra 的 
功能 要 比 linalg 强大 和 有 效 的 多 。 

在 计算 中 ,LinearAlgebra 严格 区 分 不 同 数据 类 型 Array .Matrix、 VectorL Row j、 
Vector[LColumno] ,它们 之 间 不 可 乱用 。 和 矩阵 运算 的 形式 则 较为 简单 。 和 矩阵 加 减法 和 
数 乘 仍 用 4A 士 B,4, 乘 法 要 用 4. B, 抢 阵 方 寡 或 逆 矩 阵 方 客 可 用 Am 。 运 算 的 续 采 
总 是 立即 显示 出 来 。 例 如 ， 

> af: 一 Array( 1,2 ,| 3,4]]); 


> 22 


> hb-2 
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加 | 
5 25 


> c: 一 Vectorf(| 5,61); 


> 是。C; 

Prror，(in LinearAlgebra : 一 Multipljy) expects lts lst argument，MVYV1，to be 
of type (Matrix, Vectoryscalar} ，but receiveq Array( 1..2,1..2， … unable to dis- 
play content … | ) 


> bc; 
]7 
3 
Student 阴 数 包 中 的 LinearAlgebra 子 呵 数 包 专门 为 线性 代数 提供 了 一 些 交 互 


式 的 辅助 教学 程序 ,如 EigenPlotIutor .Figenvalues Iutor .FEigenvectors Tutor 、 Inverse Tu- 
tor .LinearSolveTutor .LinearSystemPlotTutor .LinearTransformPlotTiutor 等 。 


3， 关 于 VectorCalcujus 和 Student| VectorCalculus | 贡 数 包 


> with(VectorCalculus ) ; 

[ex，x* ， 十 ， 一 ，.， 所 ,>>， 所 | 盖 ，About，AddCoordinates，ArcLength， 
BasisFormat，Binormnal，Compatibility、ConvertVector，CrossProd，LrossProduect， 
Curl，Curvature、D，Del，DirectionalD 人 入，ivergence，DotProd，DotProduct， 
Flux， GetCoordinateParameters， GetCoordinates， GetPY Descriptlon， 
GetRootPoint，GetSpace、Gradient，FIesstan，Jacoblan，Laplactan，Linelnt， 
MapToBasis， Nabla， Norm， Normallize， Pathlnt， 了 ljotPosition Vector， 
PlotVector，PositionVector，PrincipalNormal ，RadiusOftCurvature，RootedVector， 
scalarPotentlal ， SetCoordinateParameters， SetLCoordinates， paceLCurve， 
SurfaceInt，TNBFrame，Tangent ，TangentIine ，TJangentPljane ， IangentVector ， 
Torsion，VWector，VectorField，VWectorPotential ，VectorSpace，Wronsklan， 
diff，eval，evalVE，int，linmit，series | 

VectorCalculus 函数 包 以 向 量 和 向 量 场 的 计算 为 主 ,特别 是 向 量 和 向 量 场 在 不 

同 坐 标 系 下 的 转化 。Student 函数 包 中 的 VectorCalculus 子 图 数 包 专门 为 此 提供 了 
一 此 交互 式 的 辅助 教学 程序 ,如 SpaceCurveTutor、 VectorFieldTutor 等 。 
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4.2 回 量 的 定义 和 运算 


4.2.1 定义 向 量 


1， 回 量 Vector 





其 中 类 再 可 为 行 向 量 (row 或 列 向 量 Ccolumny ， wp 上 ， 关 于 选项 的 具体 用 
法 , 感 兴趣 的 读者 请 参阅 Maple 的 联机 帮助 ,用户 手册 以 及 相关 的 书籍 资料 。 
Vector 为 标准 库 果 数 。 


【 例 1】 用 Vector 命令 定义 向 量 。 
u: 一 Vector(|a,b,cj); # 定义 列 向 量 


Q 
0 


v : 一 Vectorl row|(|a,b,cj); 井 定义 行 向 量 
53 一 | 5 5 


> whattype(Cu) ,whattype(Cv) ; 





Veinseciorne 
5 ae 井 定义 为 只 读 回 量 
: 一 |1] 2 3| 
> AL1J 一 55, 间 II 性 回 量 的 元 素 
Error，cannot asslgn to a read-only Vector 
> Vectorl rowj(5,x>x2); 井 用 函数 定义 向 量 元 素 
[1 4 9 16 25] 


【 例 2】 将 列表 转化 为 癌 量 。 

>ul: 一 [|1,2,3j; v :一 convert(u,Vector| row ]); w : 一 convert(uy, Vector) ; 
:一 [|1，2，3 
0 一 |1 2 3 
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2。 随 机 回 量 RandomvVector 


RandomVector[ 类 型 ]( 维 数 ,选项 ) 1 
其 中 类 型 和 选项 的 用 法 同 Vector。RandomVector 位 于 Eeeiels 丽 数 名 中 


【 例 3】 生成 随机 向 量 。 
> with(LinearAlgebra ) : 


> 人 andomvVector(3); 间 生成 在 一 99. . 99 范围 内 的 3 维 随 机 列 向 量 


= 本 
87 
> 人 andomVectorLrow |(5,generator 王 1..9); # 生成 1..9 范 围 内 的 3 维 随机 
行 回 量 
琵 珊 : 汪 。 册 : 必 : 明 
本 书 1. 4.4 节 介绍 了 用 <|> 和 <,> 定义 向 量 的 方式 ;本 节 介 绍 了 用 Vector 和 


RandomVector 图 数 定 义 回 量 的 方式 ;8. 5 节 还 将 介绍 利用 输入 模板 定义 向 量 的 方 
式 ; 用 convert 图 数 也 可 以 将 其 他 数据 类 型 转换 为 向 量 。 


4.2.2 向 量 运 算 


1 加 法 和 数 乘 


器 量 的 线性 运算 加 减法 和 数 乘 的 最 简单 形式 为 : 
0 二 wex  ， 
其 中 DU,V 为 向 量 ,c 为 常数 。 
更 一 般 的 形式 为 : 
VectorAdd(U,V,cl,c2， 选项 ) 
计算 回 量 U 和 YY 的 线性 组 合 c<1 * U 十 c2 * wV。VectorAdd LinearAlgebra 困 数 和 包 
中 的 曙 数 。 
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【 例 4】 回 量 的 线性 运算 。 
> a :一 <1,2,3>:b :一 Vector(| 4,5,6 |])， 
> a 十 b,LinearAlgebra : 一 VectorAdd(a,b,1, 一 1) 


re 
站 
9 一 二 
> map(Cint,a,x) ; # 请 观察 困 数 作用 到 向 量 的 效果 
二 
站 
这 


2 内 积 和 外 积 








上 述 式 十 区 香 和 放 4 Po 卫 教 ， Sa DotEadig SEO 二 于 上 曙 数 包 
LinearAljgebra 和 VectorCalculus 中 ,用 法 和 结果 均 稍 有 差别 ,BilinearForm 存在 于 
曙 数 包 LinearAlgebra 中 ,S 的 缺 省 值 为 单位 阵 。 


【 例 5】 观察 在 不 同 明 数 包 中 向 量 的 内 积 和 外 积 。 
> U: 一 Vector(Lay,b,cj): v: 一 Vector(L xyy,z])， 间 定义 列 向 量 uyv 
> uv,LinearAlgebra : 一 DotProduct(u,v) ,VectorCalculus : 一 DotProdCuy v) ; 
az 十 by 十 czyaZz 十 DOy 十 czyaZz 十 Dy 十 cz 
> LinearAlgebra : 一 CrossProduct(u,v) ,VectorCalculus : 一 CrossProdCuyv) ; 


过 二 
[有 ROY 一 SG 十 人 ay 一 roe。 
Qy 一 DO 
> u: 一 VectorlLrowj](La,b,cj): v: 一 Vector([xyyyz]): 
# 定义 行 问 量 u, 列 回 量 v 
> uv,LinearAlgebra : 一 DotProduct(u,v) ,VectorCalculus : 一 DotProd(Cuy v) ; 
az 十 by 十 cz,ZzQ 十 yb 十 zcyaz 十 0y 十 cz 
> LinearAlgebra : 一 CrossProduct(uyv) ,VectorCalculus : 一 CrossProd(Cu,v) ; 
同上 

u: 一 Vector(La,b,cj): v : 一 Vector row]([xyvyyz])， 7 

# 定义 列 回 量 u, 行 向量 v 
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> uvV,LinearAlgebra : 一 DotProduct(u,v) ,VectorCalculus : 一 DotProdCuyv); 
QT Qy az 
pb by pz | ,az 十 0y 十 czyaz 十 by 十 cz 
区 
> LinearAlgebra : 一 CrossProduct(uy,v) ,VectorCalculus : 一 CrossProdCuyv) ; 
同上 
u : 二 VectorlLrowj(La,b,c]): v :一 Vector[row]([x,y,z]): 
并 定义 行 回 量 Uy，YV 
> uv,LinearAlgebra : 一 DotProduct(u,v) ,VectorCalculus : 一 DotProdCuyv) ; 
Za 十 yb 十 zcyza 十 y0 十 zcyaz 十 Dy 十 cz 
> LinearAjlgebra : 一 CrossProduct(Cu,v) ,VectorCalculus : 一 CrossProdCu,v) ; 
[pz 一 cy cz 一 QZ 0 0 一 Cyjes 十 (ez 一 C2)e 十 (ay 一 pzJe 


3. 长 度 和 角度 





分 别 计算 向 量 V 的 | 记 ， 范 数 、 单位 化 和 向 向 量 1 U J 和 V (多 殉 区 ， 中 水 Norm、 Ninaliae 存 
在 于 图 数 包 LinearAlgebra 和 VectorCalculus 中 。 在 函数 包 LinearAlgebra 中 ， 户 的 
册 省 值 为 cc; 而 在 函数 包 VectorCalculus 中 , 思 的 缺 省 值 为 2。VectorAngle Vector- 
Norm 存在 于 困 数 包 LinearAlgebra 中 。 


【 例 6】 观察 在 不 同 函 数 包 中 向 量 的 长 度 和 夹 角 。 
u : 一 Vector(La,b,cj): v: 一 Vector([xyyyz]) : 
> LinearAlgebra : 一 Norm(Cu) ,VectorCalculus : 一 Norm(Cuay) ， 


LinearAlgebra : 一 VectorAngle(Cu,v) ; 


| | 3 Vw 干 克 二 Carccos| | 醒 必 让 本 | 人生 下 让 


max(|20|， 


4. 回 量 空间 
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分 别 计 算 回 量 组 的 极 大 线性 无 关 组 .个 向 量 给 鲍 极 大 线性 无 关 组 ”个 向 量 组 生成 
的 子 空间 的 交 空 间 的 一 组 基 、 向 量 组 的 Gram-Schmidt 正 交 化 ,其 中 向 量 组 w,V1， 

…V7 可 为 列表 或 集合 。Basis、SumBasis IntersectionBasis GramSchmidt 孝 是 .上 加 
数 包 LinearAlgebra 中 的 函数 ， 


【 例 7】 回 量 组 正 交 化 。 
> With(LinearAlgebra) : v] : 一 <2,1, 一 1]>，v2 : 一 <1,0,2> :, v3 : 一 <1,1,1、， 
> al: 一 GramSchmidt(|vl,v2,v3 ]); 


< 一 人 
2 ] 5 
| 2 2 
1 
> b :三 GramSchmidt({vl,v2,v3) ,normalized) ; 
1 本 
5 3VY6 2 
D ee O “ V6 。 VS30 
划 
V5 一 AV6 0V30 


4.3 和 窍 阵 的 定义 


4.3.1 定义 和 抵 阵 


1. 和 矩阵 Matrix 





Peer 它 是 定义 矩阵 的 主要 函数 通过 设置 选项 ,| 用 户 还 可 以 
定义 特殊 形式 的 矩阵 。 


【 例 8】 定义 和 矩阵。 
> Matrlx(2) ; 


0 
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> Matrix( 1,2,31 ,| 4,5.6| | 壮 
1] 2 3 | 
4 D 


风 MI,2 玉 1.3 | 
2.1] 822 22.3 
> M : 王 Matrix(3,(i,j)->10xi 十 j)， # 用 函数 定义 矩阵 元 素 
]1 12 13 
AM : 王 E 2 | 
31 .32 33 
> M : 二 Matrix(3,4,||a,bj,lc,djj,fll 王 一 1); 


C 0 一 | 一 | 
AT : -| 斧 过 -一 1 
一 1 一 一 1 一 


> M : 一 Matrix(% ,shape 一 triangularLlower ]) ; 


C O OU O 
-| C C 0 | 
一 人 一 一 1 0 


> M :一 Matrix(3,| | 1 j,|a,2 | ,| bc,3|j,shape 王 hermitian); 井 定义 万 阵 
1] w 0 
AI : 王 | L | 
DPC 3 
2， 面板 输入 


点 击 输 入 面板 中 的 “矩阵 ?面板 (图 4-1), 选 定 和 矩阵 的 行 数 、 列 数 . 类 型 .形状 和 数 
据 类 型 ,再 点 击 “ 插 人 和 矩阵 "按钮 ,在 工作 窗口 的 光标 处 插入 矩阵。 例如 : 


jj 71,2 
4=| 12,1 72.2 
此 时 ,用户 可 以 修改 矩阵 的 元 素 值 。 当 行 数 或 列 数 等 于 1 时 ,用 户 可 以 选择 插 人 
矩阵 或 插 和 向量。 虽然 表达 陈 一 模 一 样 ,实际 上 它们 具有 不 同 的 变量 类 型 。 
3 上下文 菜单 
用 鼠标 右键 单 击 符 阵 ,弹出 如 图 4-2 所 示 的 上 下 文 剑 单 。 在 此 沫 单 中 (例如 和 全 单 


项 “Eligenvaluesyetc” “Queries”，Solvers and 下 orms “Standard (Operartlions ), 用 


户 可 以 发 现 一 些 有 用 的 惩 阵 命令 。 


> MatrIx(2,3,，Symbol 一 U) ; 
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> with(LinearAlgebra) : radomlze( ) : 


# 在 使 用 RandomMatrix 之 前 , 先 调和 人 图 数 包 ,并 初始 化 随机 数 发 生 兰 
> 下 andomJMatrlix(2 ) ; 


1 
92 67 
> RandomIMatrix(2,generator 一 0.. 1.0); # 矩阵 元 素 在 L0,1j 上 随机 均匀 分 布 
0. 878441803808296728 0. 142743834910262324 
0. 889664198876174206 0. 986313501353820566 


mm 
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> RandomMiatrix(2 ,outputoptions 一 | shape 一 Symmetric ]) ; 


# 定义 随机 对 称 阵 


可 | 
95 54 


> RandomlMiatrIx(3 ,generator 一 1..9,outputoptlons 一 


| shape 一 triangularl lower jj);， 井 定义 随机 下 三 角 阵 


> 于 :一 X-> 


(0 0 
0 8 0 
(0 1 


Statistics| Sample ](StatisticsL RandomVariable](Normal(0,1)),1)L1: 
RandomMatrix(2,3,generator 一 全 ; 井 所 阵 元 素 服 从 标准 正 态 分 布 
0. 0504123701207424141 0. 139575997670809248 0. 198913705440137450 
1.71475988612176300 0. 458060737299529452 0.475421270150344132 
一 1. 29835018005807878 0. 877059889022590022 0. 182077608167200523 


S， 特 殊 和 矩阵 


LinearAlgebra 函数 包 提 供 以 下 预定 义 的 特殊 插 阵 ( 表 41) ,其 中 r: 行 数 ,c: 列 
数 ,d: 维 数 ,r、 7 、R: 正 整数 ,5: 常数 , 户 、J 1 回 量 或 列表 , 户 、9: 多 项 式 ,z: 多 项 式 


菇 元。 


汪 数 
BandMatrixCv,k,ryc) 
BezoutMatrtxGCpyqyX) 

CharacteristicMiatrix( 入 ,入 ) 
CompanlonIviatriIx(P，,X) 
(ConstantMatrIx(s,T:C) 
iiagonalMatrixGCvy rc) 

(GivensRotationjMatrlIxCv 1 1) 


HankelMatrixChr) 
HbertMatrixf{ Tec S ) 


HouseholderMatrix(Cv yd) 


表 4-1 特殊 和 矩阵 


训 盟 
带 状 阵 
两 个 多 项 式 的 Bezout 矩阵 多 项 式 按 降 次 排列 
人 一 及 
多 项 式 的 友 孟 
前 值 定 阵 
对 角 阵 
Givens 旋转 托 阵 
Hankel 矩阵 六 ,一 太 ， 


四 
?十 7 一 4 


Householder 反射 窍 阵 


Fiilbert 守 阵 思 ,一 
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续 表 
到 数 说 一 

IdentityMatrix(Cryc) 单位 阵 7 

JordanBiockMatrix(J ,d) Jordan 标准 形 

OuterProductMatrixCuyv) 回 量 的 张 量 积 mm 一 四 可 
ScajarMatrix(syryc) 数量 阵 y。 上 

SylvesterMatrix(p,qy，x) 两 个 多 项 式 的 Sylvester 矩阵 ,多 项 式 按 降 次 排列 

ToeplitzMatrix(t,T) Toeplitz 矩阵 iv 一 万 -， 


VandermondeMatrix(Cv rc) Vandermonde 定 阵 mv 一 才 
ZeroMatrix(Cryc) 零 算 阵 O 〇 


【 例 10】 定义 特殊 矩阵。 
> with(LinearAlgebra ) : 
> convert(| | abj,|1,2| ,Matrix); 间 将 lst 转 化 为 Matrix 
C 必 
时 
> BandMatrix(| | wy,wj,|x,x,xj,|y,yvyj,|z,z|j,1,3,4); 
# 定义 3 行 4 列 ,起 始 位 置 在 上 的 融 状 惩 阵 
yy > 0 
六 
Uz T YY 
> CompanionMiatrix(x3 十 sum(al 1]x xii 一 0. .2)，X); 
TO 0 一 an 
1] 0 一 CQ 
0 1 一 Cs 
> DiagonalMatrix(L1,2,3j); # 定义 对 角 线 元 系 是 1,2,3 的 矩阵 
] 0 0 
0 2 0 
OU0 3 
> SylvesterMatrix(Csum(alijx xiyi 一 0..3),sum(CblLijx xiyi 一 0..3),x); 
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0 0 pp p 
> VandermnondeMatrixGLuyv, wj);， 间 形成 Vandermonde 征 阵 


] 术 
， 站 
1] 7 


矩阵 的 抽取 与 合成 的 图 数 见 表 4-2。 
表 4-2 和 天 阵 的 抽取 与 合成 


4.3.2 抽取 与 合成 


晒 数 说 明 
A[i, 让 或 SubMatrix(A,i,j) 矩阵 元 素 凡 或 子 癌 量 或 子 矩 阵 
(A，……,B) 按 行 构造 rtable 对 象 
(A| |B) 按 列 构 造 rtable 对 象 
Diagonal(A,L) A 的 某 些 对 角 线 构成 的 列 同 量 序 列 
Row(A,L) 4 的 某 些 行 同 量 构成 的 序列 
Column(A ,EL) A 的 某 些 列 向 量 构成 的 序列 
DeieteRow(A ,EL) 删除 A 的 某 些 行 
DeleteColumn(A,L) 删除 A 的 某 些 列 


运算 符 上 |、 <1> 、 <， > 为 标准 库 国 数 , Diagonal、Row、Column、DeleteRow、 
DeleteColumn 为 图 数 包 LinearAlgebra 中 的 图 数 。 表 4-2 中 A,B 为 矩阵 , 寺 为 集合 。 


〖【 例 11】 抽取 矩阵 的 部 分 元 系 。 
> A: 一 Matrix(3,4, (ij)->ali)]j); 


俯 1 ,1] Ci.2 人 1.3 (tf 1 ，: 
4 :一 |al ay ao3 Co2z1 
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> Al 一 1,1..4|; 井 或 Row(A, 一 1),A 的 最 后 一 行 
Las CQ3.2 CC3,3 da 
> WhatType(5%6 ) ; 
Vector 
> with(CLinearAlgebray) : 
> Row(A,L2,1); 井 A 的 第 二 行 和 第 一 行 
Las LL2.2 信 2.3 az ,Lai CC.2 CI3 2 
> DeleteRow(A,[1,2]); 划 删除 A 的 前 两 行 
用 CC3,2 CC3,3 La3.4 
> whatType(0%6 ) ; 
Natrz 
> SubMatrix(A,2. .3,，3. .4); 
| 
CQ33 CQ3,l 
> Diagonal(A, 一 2..3); 井 A 的 6 条 对 角 线 


区 1 ,1 C1,2 


CL2 ,1 CL1,3 
Ce |， CC2,2 |，| C2,3 | | ce 


(3 7 >, 
Cr3 ,3 以 3,.4 


> Diagonal(A,outputoptions 一 | orientation 一 rOw |) ; 
Lai 信 2.2 0Q3.3 


> DiagonalMatrix(C(Diagonal(Ay) ); 


CL1.1 U U 
U (2.2 刘 
U O (3 3 


> unwith(LinearAlgebray) ; 
> Af[2..3,3..4]: 王 Matrix(2,2,(i,j)->bli 十 1,]j 十 2]); 
023 02 
及 ，: 一 | 上 
2 ,3 3. . :4 已 ， 
> 全; 
CI CI CI Ci 


C2.1 信 2.2 2 .3 7 


C3 1 侈 3 ,2 D3 .3 Da3 .1 


【 例 12】 怎 阵 合成 。 
> A,B :一 Matrix(LL1,2| ,| 3,4jj ,<<alb>,<cld>>; 


9/ 
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1 2 Q 已 
4B:[ 1 
3 14 C 过 


><AlB>;， 间或 Matrix(LA,Bj) , 按 行 合并 矩阵 
开 2 交 
3 4 5C 
><A,B>;， 上 或 Matrix(LLAJ ,LIB]]) , 按 列 合并 矩阵 
] 2 
3 4 
7 
C 
> <<AlB>,<BIA>>;， 间或 Matrix(LLA,BJLB, AI) 
1 2 4 
3 4 
CD 1| 
CO 3 


过 
4 
4 


4.4 和 矩阵 的 基本 运 


4.4.1 加 法 和 乘法 


矩阵 的 基本 运算 符 和 旧 数 见 舟 人-3。 
表 4-3 ” 算 阵 的 基本 运算 符 和 函数 


到 
投 
寻 】 
员 | 
泛 
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运算 侍 十 ，.，，* ，、 ，*%T ，%H 为 标准 库 函 数 ， Add、 Multiply、Matrix- 
Fower、Matrixlnverse、Transpose、HermitianTranspose、Adjoint 为 函数 馈 Linear 


Algebra 中 的 晒 数 。 
【 例 13】 计算 逆 和 矩阵 、 伴 随和 矩阵 等 。 


> with(LinearAlgebra) : A : 一 <<a|b>,<cld> > ; 


人 


> A-( 一 1); # 或 MatrixInverse(A) # 计算 A 的 道 扎 阵 
浊  _ 下 
一 Ca 一 加 十 Za 
1 
一 Te 一 50-aa 
> A-` (一 2) ，MatrixPower(A ,一 2); # 比较 结果 的 不 同 
输出 略 
> A`-MT,，A-%H; # 计算 A 的 转 置 、. 共 恩 转 置 矩阵 
下 C | 有 C | 
ddJLDz 
> 也 : 王 Adioint(A); 井 计算 伴随 矩阵 
攻 一 商 
Be | 
一 必 ， 双 


> A .Bi; 


一 pc 十 da 0 | 
0 一 





分 别 作 生 阵 和 的 变换 列 灾 换 5 消 元 。 例如 ， 





Katen En Dperation 了 Pivot 承 数 了 LinearAlzebra 的 困 数 ， 
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具体 用 法 匈 下 例 。 
【 例 14】 和 玫 阵 的 初等 变换 。 
> with(LinearAlgebra): A : 一 <<1|12|3>,<4|5|16>,<718|9> > 
1 2 3 
4 |， | 
0 9 


> RowOperation(A,L1,3],s);， 井 第 3 行 乘 s 加 到 第 1]1 行 
中 2 十 85 | 


4 5 6 
7 8 9 
> RowOperation(A,|1,3j);， 间 互 换 第 1 行 与 第 3 人 行 
7 8 9 
4 5 6 


T 2 
> RowGOperation(A,1,3); 并 第 1 行 乘 


了 
3 6 
( 9 


> Pivot(A,1,3); 上 利用 第 1 行 as 对 其 他 行 的 第 3 列 “ 打 酒 - 


] 2 3 
2 0 
4 < 
> RowOperation(A,L1,3j,inplace): A; # 互 换 第 1 行 与 第 3 行 ,并 赋 给 A 
7 8 9 
4 5 0 
1] 2 3 
> Ai: 一 Matrix(5,5,(i;,j)-> aliy jy); 
QI Qi QQl3 CI CGI,5 
C2,1 C22 CC23  C24 CC2.5 
A :一 as as aa aa 0Q3.5 
Q4I CC42 CC43 CC44 CC4.5 
CQ5.1 CC52 0653 Cd5.4 45.5 


> Pivot(A,2,3,[1,3,5j);， 井 利用 第 2 行 的 az 对 第 1,3,5 行 的 第 3 列 “ 打 润 “ 
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CC13C2,1 .3C2.2 
(1 ,| 本 2 一 
CC2 3 (2 .3 
CC2，1] 人 2 ,2 
CC3.3C2 人 33C2.2 
(tt3 ，] 3 ,2 
(2 .3 (2 .3 
4] 人 4 .2 
以 .3 人 2 ,1 cl5.3CC2.2 
LL5，] 5 ,2 
(2 ,3 (2 .3 


4.4.3 和 矩阵 子 


前 用 的 定 阵 苯 数 见 表 4-4。 
表 4-4 
蝎 数 
CharacterlsticPoljynomial(A,x) 
ColumnJimension(A) 
ColumnSpace(AA) 
ConditionNumber(A,Pp) 
Determinant( 全) 
IDimension(A) 
EligenConditionNumbers(AA) 
Eligenvaiues(A) 
FEigenvectors( 人 入) 
Equal(A,B) 
IsDefinite(AA) 
LIs(rthogonal(A) 
IsSimilar(A,B) 


jsUnitary( 后 ) 


线性 代数 


0 CC13C2.14 CC.3C2,5 
以 1 ,1 和 1,5 
CL2 ,3 CL2.3 
C2.3 (ft2.4 C2 ,5 
0 33 信 2. CC3,3C2,5 
C 人 3 3 ,5 
(2 ,3 CL2 .3 
CC ,3 CC ,4 人 4 .5 
0 5,3CL2,1 C3,3 人 2.5 
5 机: 
C2 3 CE 3 
用 矩 阵 肖 数 
说 明 
特征 客 项 式 det(xI 一 全 ) 


列 数 
列 向 量 空间 的 一 组 基 
取 户 范 数 时 A 的 条 件数 
行列 式 
行 数 和 列 数 
特征 值 条 件数 
特征 值 
特征 向 量 
矩阵 是 否 相等 
是 否定 正 矩 阵 
是 否 正 交 和 矩阵 
矩阵 是 否 相似 
是 否 西 矩 阵 
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中 数 说 明 
MinimalPolynomial(A,x) 极 小 多 项 式 
Minor(A,ryc) 余子 式 
Norm(A,p) 或 MatrixNormn(A,p) 亡 范 数 
NullSpace(A) 雪 空 间 的 一 组 基 
Permanent(A) 积 和 式 
Rank(A) 秩 
RowDimension(A) 行 数 
RowSpace(A) 行 回 量 空间 的 一 组 基 
SingularValues(A) 奇异 值 
Trace(A) 迹 


1. 行列 式 
【 例 15] 计算 行列 式 。 


> with(LinearAligebra): A : 一 <<albljc>,<filglh>,<pldqjir>> 3 
4 0 rr 
4: 一 | 三 5 
P QQ 7 
> Determinant(A);， 井 计算 和 矩阵 A 的 行列 式 
Cg7 一 10 十 foc 一 儿 r 十 加 一 访 gc 
> Permanent(A)， 间 计算 和 矩阵 A 的 积 和 式 
Cgr 十 aAg 十 1or 十 /rc 十 训 A 十 记 gc 
> Matrix(3,(i,j)-> Minor(A,i,j)); # 与 伴随 扎 阵 比较 
87 一 Ag 太一 AD 10 一 50 
pr 一 9c ar 一 CC 六 4 一 0p 
7 一 gc dp 一 cc 六 Cg 一 0 
> Adioint(A); 
gr 一 户 g 一 Dr 十 0OC ， 蚊 一 gc 
一 广 十 Ap ar 一 cb 一 中 十 cF 
ja 一 8 一 aqTO 08 一 0 
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【 例 16】 计算 球 坐 标 ( 图 4-3) 的 Jacobian 行列 却 。 





> with(CLinearAlgebra ) : 
>v: 一 [rxsnCphi)xcos(Ctheta),rxsinCphi) xsinCtheta),rxcosCphi) |; 
D :一 |rsin(g)cos(C9) ,rsinGCg)sinC9) ,rcosCg) | 
> :一 Matrix( dffcvr) ,diffv phi ,diffigvvtheta) |):; 
sin(g)cos(CO) Sing)SInCO) COS(Y) 
:一 rcos(Cg)cos(O) rcos(g)sinCo) 一 rsin(C) 
一 rsin(g)sin(9) 7rsin(g)cos(O) 0 
> TDeterminant(J]) ; 
sin(g)3cos() 产 十 产 cos(g) cos(O) sin(g) 十 
rsSin(g)ssin(CO 十 产 sin(Cg)Ssin(COO) cos(g)- 
> Simblify( 259) ; 
Sin( 史 ) 产 


2. 行 ( 列 ) 回 量 空间 


【 例 17】 回 量 空间 的 基 、 维 效 。 
> with(LinearAlgebra): A := <<1,2,0> |1<0,2,6> |<0,0,4> |<0,0.0> > ; 


LU0 9 
4: 一 |220 0 
OU 0 4 9 


> [Dimension(A)j] ,| RowDimension(A) | ,人 ColumnDimension(Ay) |; 
13,441L3] 4. 
RowSpace(A); 寺 行 同 量 空间 的 一 组 基 
[[1000:I0100.100 10| 
> ColumnSpace(A); 井 列 回 量 空 间 的 一 组 基 


1014 符号 计算 系统 Mable 教程 


0 b 
中 | ， 
0 | 


“Nullspace(A): 井 Ax= 一 0 的 解 空 间 的 一 组 基 
O 
加 
1 
] 








-Rank(A) 


3. 特征 值 和 特征 回 量 


【全 18】 计算 矩阵 的 特征 但、 特征 癌 莉 。 
with(CLinearAlgebra): 人 :一 -2 > | 一 一 1 .< 1> 





< OO 。 了 2 


4 一 2 2 1 
] | 人 


CharacterlsttcPolynormaliatlCA .xx) ; 
三 67 
.factor(2% ) : 
2) 


.FEigenvalues(A,output 一 list) ; 


0.3.2 | 
Trace(A); 井 计 革 证 阵 的 迹 
站 


(Crvv) :PEigenveetors(A);， 匡 特征 癌 量 为 输出 矩阵 的 列 回 量 


了 3 一 一 一 2 
可 ] 


19】 判别 相似 十 阵 。 


01110.2.2 12200313 
0 0 0 
及 :一 | 1 2 0 
| < D- 





《Cd PP) : = 一 TsSimjlar(A,B,output=[ duery ，(C ]); 
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O 2 一 4 
4 上 :一 true， 一 2 一 1 0 
1 一 1 0 
一 王 qual(P,. A,.B.P);: 间 或 上 Equal(A,p (一 1).B.P) 
tYrLLe 
-SingularValues(A,output 一 list); 
[0 v30.v2 
> 百 : 王 HbertMatrtx(C3) ; 
1 可 | 
和 
了 工 上 圭 
3 4 5 
TsJDefmnite(FHL ) ; 
tTYUe 


Etigenvalues(H) ,SingularValues(CEHD ; 


衔 出 覆 
2 EEigenvalues(H x 1.0) ,SingularValues(Hx* 1.0);， 井 比较 结果 之 不 同 
1.40831892712365359 十 0. 1. 40831892712365403 -1 


0. 122327065853905653 十 0. 工 | ， 0. 1223270658539095959 
0. 00268734035577353116 二 0. 1 0.00268734035577351946 


4、 范 数 和 条 件数 
【 例 20】 计算 矩阵 的 范 数 和 条 件数 。 


with(LinearAlgebra): A :一 1, 1.1 1.1. 一 2 | ,一 1.0 > 
| ] ] 
及 :一 | 1 ] 一 ] 
1 一 2 0 
2 一 A 人 (一 1); 
四 
一 
有 
] 一 | 
2 了 了 “” 
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> Norm(A) ,Norm(CB) ConditionNumber(A): 世 f 等 价 于 Norm(Cx ,infinity) 
3,，] .3 
Norm(A. 1 ,Normn(CB ,1),ConditionNumber(A ,1); 
4 ,1 ,4 
-Normn(A:,2),Norm(B,2),ConditionNumber(A,2);， 井 等 价 于 Norm( xx， 
Fuclidean ) 
/5.5V5, VE 
Norm(A,EFrobenius), Norm (了 .Frobenius)， ConditionNumber (和 ,下 robe- 
nlIus ) ; 
v11.1.VL 
> SingularValucs(A); 


[V2.V3.V6] 
4.4.4 矩阵 分 解 和 标准 形 


种 匈 的 矩阵 分 解困 数 和 标准 形 曙 效 见 表 4-5。 
表 4-5 ”常用 的 矩阵 分 解 函数 和 标准 形 函 数 
病 数 说 。 明 


bidiagonalFkorm(A) 人 一 岂 . 也 V UV 凸 阵 , 六 二 对 角 


FrobenlusFormt 人 ) 





RationalCanonlcalPormnt AAA ) “ 
(aussianElimnination(AA) 返回 LUbDecomposition 中 的 己 
HermiteForm(A.x) 一 [7 . 已 么 模 阵 , 互 上 三角 
HesscenbergForm( 信 ) 一 忆 .五 .QQ QQ 丁 阵 ,. 互 :Hessenberg 
jordanForm(AA) 4 一 也. 三 己 - 1 ;Jordan 标准 形 


一 。 一 


人 一 忆 已 置换 阵 , 二 下 - 攻 .UUI 上 
DU 一 D1. 尺 角 ,R 上 三 角 阶 梯形 


PopovForm( 信 ,x) D7 么 模 阵 ,deg( 忆 ) 最 小 


LULDecormDosltton 入) 
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续 表 
中 效 说 明 
QRIUecombosttonGCA) 人 人 盖 C. 下 QQ 西 陡 .R 上 二 从 


RecduccdRowchelonFkorm( 六 ) 运 回 LUDecombosition 中 的 及 


SchurForm( AAA) 一 QQ 了 QQ 入 西 哇 :. 开 稚 上 三角 





SingularvValucs(A) UV 西 阵 ,S 对 角 阵 


SmitnhFormf 六 ) 人 一口 .9 UV 委 模 阵 .S 对 基隆 


TridiagonalForm(A) 4A=Q TITQ Q 西 呼 .了 二 对 角 


【 例 21】 算 阵 分 解 。 
> with(LinearAlgebray) : 
> AAA: 一 -<<0| 一 116> 人 1211>, < 一 2 一 1 一 5> > 


0 一 | 6 
1 
一 一 一 5 
2 (PP,L ULUDecomposltIonGA) ; 
0 1 9 ] 0 0 ] 2Z ] 
三 0O00 0 ] 中 0 一 | 6 
LO 0 1 一 2 一 3 1] 0 0 15 
> 了 .1 U 间 验证 A=P. TI. U 
OO 一 | 6 
] 2 ] 
一 一 一 ? 
> 人 A :一 -11322142>2152 > 


] 3 
| 

2 5. 
2 (Q,R) : 一 QRDecomposition(A ,fullspany ; 
2 2 


产 一 


C 尾 : 王 


Lo ceo co| 
- 
让 一 
一 一- 
CD CD Cn 
< 一 一 
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-.QRDecomposition(A); 芋 紧缩 形式 鸭 QR 分 解 


二 芭 
3 3 
2 一 2| 3 几 
民 :三 | 二 一 |， 
C 3 9 0 1 
2 1 
3 3 


-Q.R: 上 验证 A=Q. 下 


[1 3 
1 1 
2 5 


U.S,V :一 SingularValues(A,output 王 LU ,SS，Vt l)， 


LVY 1 一 
一 .4110075475364061152 一 .621794460753442468 一 .56066666606566566b30 
D817503338895268538 ”0. 71741920841345004481 一 .323333333333333515 


_ 
_ 
sg2710481190439 一 . 250831040080910284 ”0. 666666666666666740 
7. 67118381878953492 
aoraogsonls6 ， 
站 U， 

一 ,388241725740301358 ”一 .921557574107116029 
0. 921557574107116029 一. 388241725740301358 了 
-TUJ. DiagonalMatrix(SL 1. .2 .3.2).V: 


0. 909999999599999966 3 
2 4. 00000000000000088 
乙 。 D. 00000000000000088 
AAA: 一 -2 一 1 1>, 212|1 一 > 一 | 21 一 1]> > 
2 -1 1 
4: 一 |2 一 ] 
| 2 一 ] 


> SoOrt(CharacterlisttcPolynomial(A,x) )， 
人 一 3 和 十 3 六 一 ] 
> 下 robenliuskEorm(A); 


2 SmithForm(Cx 一 入) 
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国 0) 
| ] 0) 
《国生 
`Q,] : 王 JordanForm(A,output 王 [L Q , 本]); 


0 1 1 1 了 工 -站 
or 2 | ] 

3 1 0 0 0 1 

= 

] l | 


4.5 线性 方程 组 


了 


4.5.1 方程 与 矩 阵 的 转换 


对 于 给 定 的 矩阵 A、B,GenerateEquations 困 数 可 以 构造 线性 方程 组 AX 王 也 。 
对 于 给 定 的 线性 方程 组 ,GenerateMatrix 田 数 可 以 提取 方程 组 的 系数 和 矩阵 ,将 方程 组 
转化 为 和 矩阵 乘积 AX= 王 忆 的 形式 。GenerateEquations 和 GenerateMatrix 都 是 
LinearAlgebra 曙 数 包 中 的 图 数 。 它 们 的 用 法 有 : 


CenerateEquations(A， 变量 列表 
GenerateMtatrix( 方 程 组 ,变量 列 表 ) 


【 例 22】〗】 线性 方程 组 与 系数 矩阵 的 转换 。 

> with(LinearAlgebray) : 

> GenerateEquations(-<<1|12>,<314>>> ,| xy]|,<5|6>); 
[Lz 十 2y 一 5,3Zz 十 4y 一 6 | 

> GenerateMatrix(| 2 * y 一 5 一 xX,4x*Vy 十 3xX 一 6| ,| x,y]); 


上 


一 
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4.5.2 求解 线性 方程 组 


假设 方程 组 具有 形式 4AX 一 也 。 
BackwardSubstitute(A ,了 ) 
ForwatrdSubstitute( 和 ,已 ) 


Nulispace(A) 
LinearSolve(A, 了 ,选项 ) 


当 A 是 一 个 下 三 角 阶 梯形 矩阵 的 时 候 ,ForwardSubstitute 利用 向 前 代 人 的 方法 
依次 解 得 xz 当 和 是 一 个 上 三 角 阶 梯形 矩阵 的 时 候 ,BackwardSubstitute 利 
用 向 后 代入 的 方法 依次 解 得 mw 2 当 呈 =0 的 时 候 ,Nullspace 给 出 方程 的 基础 
解 系 。 一 般 地 ,LinearSolve 会 目 动 选择 合适 的 算法 求解 线性 方程 组 ;用 户 也 可 以 折 
定 算 法 ,如 none，soltve，sSubs，Cholesky，LU，QR，hvybrid，Sparsel_U ， SParse 
Direct，Sparselterative 等 。 以 上 郴 数 都 是 LinearAjlgebra 图 数 包 中 的 咽 数 。 
并 十 3 十 6z 十 2 一 一 ] 
【 例 23】 求解 方程 组 4 6 十 3 十 6z3 十 12.r 一 24。 
3x 一 心 一 2x 十 bc 一 17 
> with(LinearAlgebray) : 
>A:,B: 王 一 11316|12>,<6|1316112>,<3| 一 1 一 216>>, < 一 1,24,17> ; 


1 3 6 2? 一 ] 
AD 一 |060 3 b 1]2 | ,| 2<4 
3 一 | 一 上 ] 7 
> LinearSolve(A,.B,free 一 x);， 井 定义 月 由 变量 x 
D 一 2 
一 2 一 273 


人 
.1 
> ReducedRowEchelonForm(<Alb>); 
[OU = 
0 1 2 0 一 2 
UUUU DO 


> U :一 GausslianFElinmination( 一 APB>) 
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] D b El 
是 15 00 二 


0 0 0 0 0 
> BackwardSubstitute(UL1. .2,1. .4 ,UL1..2,5],free 一 y); 
D 一 yi 
风 
.yl 
4.5.3 最 小 二 乘 解 
LeastSduares(A ,也 ) 


给 出 方程 组 AX 王 已 的 近似 解 X 使 得 Normn(AX 一 BFrobenius) 最 小 。 
LeastSquares 是 LinearAlgebra 上 加 数 包 中 的 困 数 。 


十 27zy 一 5 
【 例 24】 求 方程 组 4 2z 十 z* 三 6 的 最 小 二 乘 解 。 
天 | 十 光 yy 坟 
A,;B: 一 << 人 ,2 上 ,1 > | 二 。 
1 列 5 
及 ,有 一 |2 11， 6 
] 1 4 
> with(LinearAlgebra): 入 : 二 LeastSquares(A,B) ; 
26 
| 
久 : 一 
15 
【 
> Norm(A. X 一 b,Frobenius) ， 井 计算 误差 
] 
站 Y 工 | 


> unwlith(LinearAlgebra ) ; 
> with(Student| LinearAlgebra | ) : 
> LeastSquaresPlot(| 1,2,1 ,| 2,1,1| ,|5,6,4」 ,| xyyjycurve 王 axx 十 bx y); 
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The Least Squares Fit of 3 Points 
of the CUrve ak#X+b*#y 








2 


人 





(LD 廿 (LA Cn ~ 


图 4-4 


最 小 二 乘 解 的 几何 含意 是 求 向 量 在 子 空间 上 的 投影 。 
SRSRPIGS Do 有 ds |3， 
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4.6 应 用 实例 


【 例 25】 (比赛 排名 ) 设 有 6 个 队 进 行 单 循环 比赛 .排名 由 各 队 的 积分 决定 :有 性 
队 得 工分 . 负 队 得 0 分 ,平局 各 得 0. 5 分 ; 若 两 队 积分 相同 时 , 则 比较 对 手 分 (战胜 的 
对 手 的 积分 之 和 ); 若 对 手 分 也 相同 时 . 则 比较 对 手 的 对 手 分 。 依 次 类 推 下 去 。 已 
比赛 结果 为 1 队 负 2 队 .1 队 胜 3 队 .1 队 胜 4 队 、1 队 平 5 队 .1 队 胜 6 队 .2 队 脏 3 
队 .2 队 胜 4 队 .2 队 负 5 队 .2 队 负 6 队 .3 队 胜 4 队 .3 队 胜 5 队 .3 队 胜 6 队 、 4 队 负 
5 队 .4 队 平 6 队 .5 队 胜 6 队 。 请 为 其 排名。 


、/ | 、 、 _ . ] 四 
我 们 用 和 托 阵 A= (ec ) 来 记录 胜 负 关系 ,ov 一 0 表示 工人 负 Ji 二 广 和 表示 平 /， 


xj 一 1 表示 守 胜 )。 于 是 ,4 的 行 和 即 为 各 队 积 分 ,A 的 行 和 即 为 各 队 的 对 于 分 .A 
的 行 和 即 为 各 队 的 对 手 的 对 手 分 ……; 
>A3: = 一 -<0I011U22 10HIIOIO OILR> <0OOlOIOIOL72>， 
-1721110111011722 -<011101172117210> > : 
口 :一 -1].1,1.1. 1 >: 
-AblA.A.b> ; 


7 
5 7 
3 7 
11 
7 
1 
1 
25 
3 了 本 
， 19 


| 


通过 比较 积分 和 对 手 分 ,排名 如 下 :1.2.3、5、.6、4。 


( 例 26】 以 图 4.6 为 例 , 求 图 上 任意 两 个 顶点 之 间 的 距离 , 即 连接 两 点 的 最 少 
我 们 用 0 一 1 矩阵 A=(c.) ) 来 表示 一 个 图 ,av 一 0 表示 与) 不 相 邻 ,av 一 1 表 
示 ; 与 ) 相 邻 ,用 矩阵 D= (d,) 来 记录 顶点 间 的 距离 。 注 意 到 d, = 
ming(cd Tc )。 
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4-6 


> [stanceMatrix : 一 brockta: :ViatriX) 
ljocal d, ij,k,mynys; 
Uses ]inearAlgepbra:; 
Q :一 am: 一 1;n: 一 KowbDmensionGCay); 
while me<n do 
m :一 2 关 mn， 
for li from 2 ton do for j] to 1 一 ] do for k to n do 
- 让 Ldlikl2oanddk >othen 
S ， 一 dLi,kj 十 dLK 
dl ij :一 让 (di 一 0,s,min(dli, js) ); 
di, 可 : 三 dLi 
end 过 
end do end do end do 
end do ; 
return d 
end proc; 


>A: 王 Matrix(10); Af[1,21: 王 1; Al2,5] :=1;， Al3,41: 一 1 AlL3,61: 


AT4.5]1: 一 1;， AL[5.8] :一 1;， AL[6.7]: =1，Af[6,9]: =1;，Af[7,8] : 王 
] ; 
AL9,10] : =1; A :一 A 二 A-%T; # 手工 输入 图 的 邻接 矩阵 A 

> DistanceMatrix| A ji 





上 1 


线性 代数 


种 4 章 


13 0 / 


4 3 2 


0 3 2 


] 


2 2 3 


Cd32 3 4 


] 


b 


U 


六 


一 已 


了 


(]) 


记 


2 3 < 


] 


2 


,计算 AB,AC， 


2 


BCA 和 人 ABC。 


4. 判断 向 量 组 是 否 线性 相关 ? 
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2 | f ( 一 了 了 
《2 ) Cl 一 人 5 一 人 一 
] ] 2 
D 2 ] U 
50。 求 丰 阵 的 秩 。 
3 2 一 ] 2 
人 ] 一 ] 
2 一 | 一 : 4 3 
(1)》 有 一 3 一 2 | 一 直 02) 另 一 | 
D [ 一 ] 7 
2 一 避 二 一 2 | 
1 一 | 2 一 
6. 求 矩 阵 的 谤 矩阵 。 
了 3 一 4 一 1 
一 2 1 3: 
0 人 ] 一 ] 
(1)A 三 | 0 3 ( 二 ) 总 一 
一 0 1 | 
] 2 1 
2 3 一 2 
7. 解 线 性 方程 组 。 
人 
1 一 1 | 四 
光 2 
(1]) 1 一 2 1 一 | | 去 2 
1 一 2 1 1 风 
W 了 人 
| 一 2 一 | 一 ? 国 2 ; 
[ [ ] 7 了 
(2 ) -一 
2 本 4 | 人 )， 
1 人 [ [ 二 | 可 
和 本 本 
8. 设 线性 变换 和 在 基 oj 二 (1 一 1), 二 (1, 1) 个 的 矩阵 是 _ | | 求人 在 


其 ji 一 (2.0), 思 一 (一 1.1) 下 的 和 矩阵 。 
9. 求 算 阵 的 全 部 特征 值 和 特征 问 量 。 





IO 0 3 
OO 2 
0 4=1 (2)B-10 2 0 
一 坟 0 
10 0| 
| 1 1 1 
1 一 1 一 1 
(3) (一 
-1 1 一 1 
1 1 -1 1 





10. 判断 二 次 型 是 否 为 正定 二 次 型 。 
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(1) QGCzrast) 一 一 21 二 1 十 2 十 41473272 
(2) Qi yt 十 

11. 用 正 交 变换 化 二 次 型 为 祭 准 形 。 

(| ) CGO 一 2 二 一 

(2) QQ 一 31 十 4 十 8 十 4rora 十 3 

12. 计算 下 列 和 矩 阵 的 Jordan 标准 形 并 写 出 过 渡 矩 阵 。 


四 7 3 
(1》A 一 | 一 2 一 5 2 

一 人 4 一 10 一 3 

3 一 4 0 2 

4 -5 一 2 
(2) 了 一 

0) 人 一 2 


人 4 ] 


1 17 


第 S 章 微分 方程 


5. 1 千 微 分 方程 


5.1.1 常 微分 方程 的 求解 和 作 图 命令 


1. 求解 微分 方程 命令 dsolve 


在 微 分 方程 中 ,我 们 称 只 有 一 个 自 变量 的 微分 方程 为 常 微 分 方程 ,具有 两 个 或 两 
个 以 上 目 变 量 的 微分 方程 为 偏 微分 方程 。 例如 :描述 物体 冷却 过 程 的 数学 模型 
dz 


-一 一 RU 一 2 ) 
d: 


含有 自 变量 (未知 函数 w(0) 以 及 一 阶 导数 所 ,是 一 个 常 微分 方程 。Maple 用 dsolve 
求解 常 微分 方程 或 常 微分 方程 组 ,其 用 法 有 

dsolve( 第 微 方程 ) 

dsolve( 和 前 微 方程 , 待 解 函数 ,选项 ) 


dsolve( {( 篆 微 方程 , 初 值 ) ? 竺 解 曙 数 ,选项 ) 
dsolve'(!t 和 靖 微 方程 组 , 初 值 },{ 待 解 函数 ) ,选项 ) 


其 中 选项 设置 解 的 求解 方法 和 解 的 表示 方式 。 求 解 方法 有 type 一 formal _ series 
(形式 医 级 数 解 ) ,type 王 formal _solution( 形 式 解 )、 type 王 numeric( 数 值 解 ) type 一 
serles( 级 效 解 ).method 王 fourier( 通 过 Fourier 要 换 求 解 ) .method 王 laplace( 通 过 
Laplace 换 求解 ) 等 。 解 的 表示 方式 有 expjlicit( 显 式 ) .implicit( 隐 式 ) 、parametric 
(参数 式 )。 当 方程 比较 复杂 时 ,要 想得到 显 式 解 通常 会 十 分 困难 ,结果 也 会 相当 复 
灵 。 这 时 ,方程 的 隐 式 解 更 为 有 用 ,一 般 也 要 简单 得 多 。dsolve 为 标准 库 函 数 。 
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2 方程 数值 解 作 图 命令 odeplot 
要 作出 利 微 分 方程 数值 解 的 图 像 ,请 使 用 odeplot 函数 。odeplot 在 函数 包 plots 
中 ,可 通过 with(plots) 或 plots[ odeplot ] 调 出 。 


。odeplot( 数 值 解 ,被 绘 函数 ,参数 范围 ,选项 





5.1.2 一 阶 第 微分 方程 


1， 可 分 离 变量 方程 
若 一 阶 微分 方程 具有 形式 空 =- F(z)g(y), 则 称 为 可 分 离 变量 方程 .一 般 可 以 


通过 对 方程 -2 = F(Cz)dz 两 边 分 别 积分 ,得 到 方程 的 隐 式 解 。 


【 例 1】 求解 微分 方程 y (Zz) 三 SI 并 ) 


Sin(y) 





> eq : 一 difft(yCx),x) 一 sin(x)/sinCyYCx) ) ; 


本 “= 得 5 SIn( 并 ) 
人 dz SInCY( 袜 ) ) 


显然 ,这 征 可 分 离 变 量 的 凋 微分 方程 。 用 Detools 函数 包 中 的 odeadvisor 函数 
检测 方程 的 类 型 ,输出 结果 _separable 说 明 方程 eg 是 可 分 离 变 量 类 型 。 
> DEtoolsl odeadvisor ](eq) ; 
| separable 

用 dsolve 曙 效 求解 方程 ,得 到 方程 的 通 解 。 
> dsolve(Ceq) ; 

yzZ) 一 IT 一 arccos( 一 cos(Z》 十 Cl1) 
议定 选项 implicit ,得 到 方程 的 隐 式 解 。 
> dsolve(eq,lmplicit ) ; 

DSS 于 【2 

附加 初始 什 >(0) 三 1, 得 到 方程 的 准确 解 。 
> dsolve(Cteqyy(0)》 一 1) 

y(CZ) 一 arccos(cos(CZ) 一 1 十 cos(1)) 
调用 odeplot 命令 作出 方程 解 的 图 形 (图 5-1)。 
> dsolve(C(teq,y(0) 王 1) ,numeric,range 一 一 2. .2); 

proc(Z_ 交 太 452)…end proc 
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> plots| odepiot |(% ); 


S-| 
2， 齐 次 方程 
若 常 微分 方程 具有 形式 电 - /之 ) , 则 称 为 齐 次 方程 .通常 用 变量 代 换 w 一 之 
将 齐 次 方程 转换 为 可 分 离 变 量 方程 反 一 帮 信 一。 


区 
【 例 2】 求解 齐 次 微分 方程 空 一 衬 十 tan( 衬 ) 。 
> eq : 一 DOy)(CX) 一 yCX)/X 十 tanCY(CX) 7 X) ; 
eg :一 (DOy))Cz) 一 愉 ) 二 tan( 交工 | 
并 记 
调用 odeadvisor 可 以 看 到 方程 的 类 型 ，homogeneous 表明 ed 是 齐 次 方程 。 
> DEtoolslodeadvisor | (eq ) ; 
[| _homogeneousyclass 4 | ，dAlembert | 
> dsolve(eq); ## 志 接 求 解 得 到 方程 的 显 式 解 
yx) 一 arcstnGCz (人 1) 
> dsolve(Cteqyy(L) 一 1 ); 
yz) 一 arcstnCzsin(1) ) 
> dsolve(Ceq,implicit); 并 求 方程 的 隐 式 解 
inf sin( 闪 ) 一 nz) 一 CLI 一 0 
> dsolve(teqyy(1) 一 3 ,Implicit) ; 


mfsin( 兰 守 ) ) 一 in(Cz) 一]nGCsin(3)) 一 0 


> dsolve(feqyy(1) 一 3) ,numeric,range 一 1..6); 井 取 初 值 y(i) 一 3，1< xc<6 
proc(Cy KR745)…end proc 
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> plotsLodeplotj(%); 井 作出 方程 解 的 图 形 


3. 线性 方程 


形 如 y (z) 十 总 z)y 一 4(z) 的 微分 方程 称 为 一 阶 线性 方程 ,在 Maple 中 既 可 以 
用 dsolve 困 数 求解 ,也 可 以 用 DEtools 国 数 包 中 的 linearsol 困 数 求解 。linearsol 是 
专门 用 于 求解 线性 微分 方程 的 命令 ,使 用 格式 为 : 


。 壳 






linearsol 的 返回 值 为 集合 形式 的 解 。 
【 例 3】 求解 线性 方程 空 一 SSE 一 > 。 


5 ED EKCsinCX) 一 ID 
eg :一 (DCy))(z) - 2( 呈 一 


四 ES 
AN 
人 


> DEtools| sodeadvisor |(eq); 井 _1linear 表明 方程 为 线性 方程 
| linear 
> dsolve(Ceq ) ; 
二 
ie 
> DEtools| linearsol |(eq); # 请 比较 两 个 解困 数 形式 
一 


人 


VCZ) 一 


> dsolve({(eq,y(1) 一 2) ,numeric,range 一 一 5..5):， 井 取 初 值 x(1) 王 2, 一 5<xc<5 
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> plots[Lodeplot](%)，# 作出 解 的 图 像 


13 


4，Bermoulli 方程 
形 如 衬 十 PCz)y = gCz)y” 的 微分 方程 称 为 Bernoulli 方程 。 当 "和 关 0,1 时 ,变量 代 


换 ,一 汪 " 将 Bernoulli 方 程 转化 为 线性 方程 和 -一 DC zw 一 goCz)) 。 


【 例 4】 求解 Bernouili 方程 9 _ 6riy 一 zy2， 


> eqa: 二 DCy)(x) 一 6x<y(X)7AX 一 关 Y(CX) 2 


ea :一 DOD)(CD 一 和 一 o( 


调用 odeadvisor 查看 方程 的 类 型 ,表明 这 是 个 Bernoulli 方程 ,并 具有 齐 次 和 有 理 
属性 。 
> DEtools| odeadvisor j(Ceqay) ; 


[Thomogeneousyclass G ]，rational，Bernoulli 
> dsolve(eqa); 井 百 接 求 解 
四 
y(Z) 一 TD 
给 定 方 程 一 个 初 值 xl) 王 1, 一 5<z< 一 1, 作 出 它 的 解 的 图 像 (图 5-4)。 
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> plotsiodeplot j(dsolve({eqyy(1) 王 1) ,numeric:range 一 一 5.. 一 1)); 


8 


-5 -4 -3 -2 -] 


S，Riccati 方程 


形 如 全 一 z)3 十 gCz)y 十 rCz) 的 微分 方程 称 为 Riccati 方程 。 在 一 般 情况 下 、 
无 法 求 出 其 通 解 的 解析 表达 式 。 但 是 如 果 知 道 一 个 特 解 , 则 可 求 出 它 的 通 解 。 


【 例 5】 求解 Riccati 方程 守 一 二 一 y“。 


. 交 


> eq : 一 DIy)(x) 一 1/x2 一 YCX) 2 ; 
cq :一 (DC)Cz) 一 记 (2 


调用 odeadvisor 判别 方程 的 类 型 ,表明 这 是 Riccati 方程 ,并 具有 齐 次 和 有 理 属 性 。 
> DEFtools| odeadvisor |(eq) ; 
[| homogeneousyclass G jj，rational，Riccati 


> dsolve(eqy,implicit); 间 求 隐 式 解 


ImnGCz) 一 _C] 一 V5arctanhf ( 生 yCDz 一 二 )v5 一 0 


这 是 原 方程 的 隐 式 解 ,我 们 再 给 出 它 的 显 式 解 ,请 观察 和 比较 显 式 解 和 隐 式 解 。 
> dsolve(eq);， 间 直接 求解 

加 1 一 VStanh( 一 冯 V5ln(z) 十 码 V5_C1 

0 = 了 一 一 一 一 一 
然后 给 定 方程 一 个 初 值 yx 了 =1,1<xz<5, 作 出 它 的 解 的 图 像 ( 图 5-5)。 
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> plotsl odeplot |(dsolve({eqyy(1) 王 1) ,numeric,range 一 1..5)); 


1 .0 
4.8 
0.6 
0.4 


过 


3- 


5.1.3 第 系数 线性 微分 方程 


形 如 y” 十 cy 二 十 coy 三 Fr 其 中 cc 为 贡 数 的 微分 方程 被 称 为 7 
阶 常 系数 线性 微分 方程 . 当 FA(z) = 0 时 , 称 方程 为 齐 次 方程 ; 当 /zxz) 天 0 时 , 称 为 非 齐 
次 方程 。 


【 例 6〗 求解 y 十 2y 十 y 王 0。 这 是 一 个 二 阶 常 系数 齐 次 微分 方程 。 
> eq : 一 d{(y(Cx),x 和 2) 十 2x 人 攻 (y(Cx) yx) 十 yYCX) 一 0 


z 
eg :一 yz) 十 2( 总 y(z)) 十 yz) 一 0 


> dsolve(eq); 井 用 dsolve 力 数 直接 求解 
VCzZ) 一 _Clec 十 _C2eCD7 
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除了 上述 dsolve 咖 数 外 ,还 可 以 调用 男 数 包 DEtools 中 的 国 数 constcoeffsols, 求 出 
微分 方程 的 线性 无 关 的 特 解 ,这 些 特 解 的 线性 组 合 就 是 方程 的 所 有 解 。 

> DEtoois| constcoeffsols |(eqy) ; 

[ec ,eca 

给 定 方 程 一 个 初 值 0)=0,y (0)=1, 一 2<xz<2, 作 出 它 的 解 的 图 像 ( 图 5-6)。 

> plots| odeplot j(dsolve({edqyy(0) 王 0,DCy)(0) 王 1) ,numericyrange 一 一 2..2)); 

2. 非 齐 次 方程 

由 于 非 齐 次 方程 解 的 具体 讨论 比较 复杂 ,这 里 只 举例 说 明 用 Maple 求解 。 想 了 解 
更 详细 的 过 程 , 可 以 参考 有 关 微 分 方程 的 书籍 。 

【 例 7】 求解 常 系数 线性 非 齐 次 方程 y 十 y 王 2 袜 一 3。 

> eq 一 diff(y(x),x$$2) 十 dff(y(Cx) ,x) 一 2x X2 一 3; 


eq : 一 -人 十 全 y() 一 2 六 一 3 
对 于 上 述 定 义 的 常 系数 微分 方程 ,我 们 调用 dsolve 男 数 百 接 求 其 通 解 , 绪 采 如 下 。 


> dsolve(Ceqyy(CX) ); 
yCD 一 一 2 好 十 二 性 一 er _CL 二 7 十 _C2 
给 定 方 程 一 个 初 值 (0)=0,y (0)=1, 一 3<r<3, 作 出 它 的 解 的 图 像 ( 图 5-7)。 


一 3 一 9 了 一 1 2 





-10 


一 3( 


图 S$-7 


> plotsl odeplot |(dsolve({eqyy(0) 一 0,D(CYy)CO) 一 1 ,numericyrange 一 一 3. .00))3 
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3，FEuler 方程 


齐 识 Euler 方程 的 一 般 形式 为 : 
1 十 ay 十 十 cy 十 ay 一 0 
其 中 al az ……av 都 是 带 数 。 求 解 方法 是 做 变换 z 一 ee, 求 出 (iD ,然后 再 将 上 = lnz 
代入 , 即 可 以 得 到 原 方 程 的 解 yz)。 


【 例 8〗】 求解 Euler 方程 字 y 十 5zy 十 13y 一 0 。 
> eq : 一 X2xdff(y(x),x$2) 十 5xXxdff(y(Cx),x) 十 13 xyCx) 一 0; 


eg :一 志 (全 y(z) 5x( -所 >(Cz)) 二 13y(z) 一 0 


> DEtoolsl odeadqvisor |(eq) 
[| Enmden，FEowler |] 

> dsolve(Ceq) ; 
ClsinGC3linGz)) C2cos(C3in(Czr)) 
刀 

给 定 Euler 方 程 一 个 初 值 y(G) =0,y (1) 王 1,1<z<5, 作 出 它 的 解 的 图 像 
(图 5-8)。 

> plotsLodeplot j(dsolve(teq,y(1) 一 0,DCy)C1) 王 1) numericy,range 一 1..5)); 


VCZ) 一 


0.14 
0.12 
0.10 
0.08 
0.06 
0.04 
0.02 
0 
-0.02 - 


5.1.4 微分 方程 组 


solve 求解 方程 组 类 似 。 
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(1 一 2z(t) 十 VCt) 
O 上 天 芝 1 < 
〖 例 9】 求解 线性 微分 方程 组 (一 3z(D 十 4v(C) 


> eqs :一 (di 任 xGt)t) 一 2x<XCt) 十 yCt) di 扩 yCt) vt 一 3 关 XCt) 十 4<yCt) 





ea05 :一 人 人 一 27 人 十 y(D 人 y( 一 3z(i) 十 4y(H) 
仍然 调用 dsolve 函数 求解 ,解困 数 中 的 _-C1 和 _C2 表示 任意 毅 数 。 


> dsolve(Ceqs) ; 
(zi 一 Cle 十 C2eo yy 一 一 Cle 十 3_C2e 7 ) 
给 定 方 程 组 一 个 初 值 x(0) 二 y(0)= 一 1, 一 1<t<1, 作 出 它 的 解 的 图 像 (图 5-9)。 
> dsolive(eqsUtx(CO) 王 1,y(0) 一 1) numericyrange 一 一 1.. 17) 
ProcGCz 六 J4D5)…end proc 
> plots| odeplot 1(2%% ,| txCt)，yCt) ]); 


20U 
1 
?了 100 
00 
0 5O 
和 间 
一 0.4 站 
让 0 于 基 
0.4 
1.0 
图 $-9 


Zi 一 yi) 一 5cos(r) 


【 例 10】 求解 非 齐 次 微分 方程 组 | 2 


虽然 是 非 齐 次 方程 组 ,仍然 用 dsolve 求解 ,得 到 方程 组 的 解 。 
> eqs : 一 (diff(CxCt ,t 一 y(t 一 5x cos(Ct)yditt(yCt)yt) 一 2 类 XCt) 十 YCt) 


如 


qd q 
eg : 一 下 (0) 一 和 (六 ) 一 5cos(， 二 7( 一 LXCt) 十 CE) 


> dsolve(eqs) ; 
{y(i) 一 一 eC CC2 十 28e20 CT1 十 3cos(t) 十 Sin(t)， 
zi) 一 ec CC2 十 ee CL1 一 2Sin(t) 一 coOs(CL) } 
给 定 方程 组 一 个 初 值 zx(0) 一 y(0) 王 1 ,一 3<t<3, 作 出 它 的 解 的 图 像 ( 图 5-10)。 
> dsolve(eqsUIx(O) 一 1,y(C0) 一 上,numerlcyrange 一 一 JJ. .3): 四 
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plotsl odeplot ](% ,[t,x(Ct),yCt) ]); 





5D.2 偏向 分 方程 


5.2.1 偏 微分 方程 的 求解 和 作 图 命令 


1， 偏 微 分 方程 求解 命令 pdsolve 


pdsolve 是 求解 俩 微分 方程 (Partial Differential Equation ) 的 常用 命令 , 其 用 
法 有 : 


: 有 中 区 党 2 2 全， 当 痪 区 交 ， 总 了 人 区 邮 人 
人 人 AR 守 - 总 
2 人 7 本 如 六 5 
到 党 3 六 有 -一 
六 2 了 站 了 和 古 
人 7 ai 区 






pdsolve 为 标准 库 曙 数 ,可 直接 使 用 。 
2。 数值 解 作 图 命令 PDEplot 





PDEDlot 站 PDFEtools 本 数 包 中 ， 使 用 前 朋 必须 先 调 出 PDEplot 丽 数 名 。 





5.2.2 一 阶 拟 线 性 和 非 线 性 微分 方程 


【 例 11】 男 出 伺 微 分 方程 zx 十 xz。>z, 王 0 的 解 曲面 xCz,y)。 


第 5 章 微分 方程 


> pbpde : 王 DL1j(z)(x,y) 十 zCxyy) xDL2]1(z)(Cxyy) 一 0; 
坊 &e 5 一 《Dikz))CZoy) 十 zzyy)DkGz)Jzsyy) 一 0 


给 定 初始 条 件 xz(0,y) = 王 sech(y), 一 5 一 y<5, 再 画 三 维 空间 中 的 参数 曲面 


(图 9 1 ) O 
> PDEtoolsLPDEplot |(pde,|0,y,sech(Cy) ],y 一 一 5. . 5); 





【 例 12】 团 出 俩 微分 方程 we 过 7 的 解 曲 面 wCzy,y,) 。 
> pde : 一 cos(Cdift(Cu(Cxyyyz),z)) 一 uCxy,yyZ) ; 


全 
Ox 


> PDFEtools| PDEplot |(pde,| cos(t) x* sin(s) ,cos(Ct) x* cos(S) ,cos(t) ， 
sin(t) | ,| t 王 0. . Pi,s 一 0. . Pi | ,numchar 一 | 20,20 |); 


轧 de :一 cos[ wzyyyz) ) 一 到 人 yy) 


,yz) 是 四 维 空间 中 的 三 维 超 曲面 。 图 5-12 所 示 只 是 其 一 个 一 zx 截面 


和 全 
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我 们 可 以 动画 的 方式 观看 (zyy,z) 的 其 他 zx 截面 (图 5-13)。 





3 3 


在 Maple 中 , 当 用 户 单 击 以 上 绘图 时 ,上 下 文 工 具 栏 见 图 5-14。 





点 击 按钮 了 艺 就 可 以 播放 动画 。 另 外 我 们 也 可 以 用 鼠标 右键 单 击 绘图 ,弹出 上 下 
文 薪 单 ( 图 5-15) ,选择 菜单 项 Animate-> Play 来 播放 动画 。 
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【 例 13 了 】 团 出 但 筱 分 方程 (三 十 交 十 喧 ) 二 一 2zyz, 一 2xzz 一 0 的 解 曲面 xCz,y) 
(图 5-16)。 
> De: 一 《2 十 证 ZX9Y) -27 关 dftCzCxwyY，) 
一 忆 关 入 关 双 关 时 址 CZ4X YY) 一 2X%Xx2ZCXV)=0; 


O 9 
力 Ce :一 (z 十 入 二 0 [te 直人 27zy (az 当 2Xz(CZ,y) 一 0 
> PDEtools| PDEplot |(pde,| t,t,sin(Pix* t/0. 1)/10 ],t 王 0. . 0. 1 ) ; 


0.14 
站 是 区， 
0.10 
0.08 
0.006 
0.04 
0.02 


0 
0.14 
网 邮 





5.2.3 二 阶 微分 方程 


1. 波动 方程 


【 例 14】 求解 波动 方程 x 一 央 。 

> pdsolve(diffCuCx,t),x$2) 王 diffCuCxyt),t$$2)); 
9 

这 里 给 出 了 通 解 ,其 中 _F1 和 _F2 是 任意 两 个 具有 二 阶 连 续 导 数 的 一 元 图 数 。 


2. 热传导 方程 


【 例 15〗】 求解 热传导 方程 到 一 zx 二 0 人 0。 
> pdsolve(CdiffCu(Cxy,t),t) 一 diffCuCxy,t) ,xy 和 2) ); 


crD = _FICD_F2OD&wher| | 和 PICD = _CLFID ,SFP2O 一 _CLF2O| 
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这 里 仅 给 出 了 分 离 变 量 形式 的 特 解 ,其 中 _F1 和 _F2 为 满足 给 定 方程 的 任意 解 ， 
_C] 为 冰 数 。 


3。 位 势 方程 


位 势 方程 的 一 般 形 式 为 :一 Ax = Fz), 这 是 椭圆 方程 的 典型 代表 。 当 Fz) 夭 0 
时 , 称 为 Poisson 方程 ; 当 Fz) = 0 时 , 称 为 调和 方程 , 它 的 解 称 为 调和 肯 数 。 

【 例 16〗】 求解 Poisson 方程 wk 十 zs 一 一 7 

> pdsolve(CdiffCuCxyy),x$2) 十 diffCuCxyy)y,y 中 2) 十 X) ; 


wzyy) 一 Fl 二 Ir) 十 _F2(0y 一 I7) 一 二 


其 中 _F1 和 _F2 是 任意 两 个 解析 图 数 ,I 王 v 一 1。 


【 例 17〗】 求解 Cauchy Riemann 方程 | _ ” 。 
> pdsolve(Cddift(CuCxsy),x) 一 dtgvGCxyy)、y)， 
diffCu(xyy),y) 十 diffCvCxyv) xx) Di; 
(xzyy) 一 Fly 十 Ir) 十 _F20y 一 ]Iz)， 
DOzyy) 一 IECYIr) 一 LF2G07y 一 Jr) 十 CT 
这 里 给 出 了 复 形式 的 通 解 ,其 中 _Fl 和 _F2 是 任意 两 个 解析 图 数 ，C1 为 营 数 ， 


I=v 二 1 


【 例 18】 求解 调和 方程 wx 十 xw 三 0。 

> pdsolve(diffCuCxyy),x 中 2) 十 diffiCuCxyy),y 忠 2))3 
rryV) 一 了 ly 一 ]Iz) 十 20y 十 >) 

同样 的 ，F1 和 _F2 是 任意 两 个 解析 男 数 ,1I 一 v 一 1。 


【 例 19】 求解 方程 ww 二 0。 

这 是 一 个 高 阶 PDE 问题 。 

> pdsolive(DL1,1,2,2,2]Cul(x,y)); 共 DEL cu 表示 对 u 的 第 一 个 变量 求 信 
微分 ,DL1,1.2,2,2j(U) 表 示 对 第 一 个 变量 求 2 次 微分 ,对 第 二 个 变量 求 3 次 
微分 。 
WUTyy) 一 了 DCZ) 十 了 4CZ)y 十 广 _F3(z)y 十 _ 24Cy) 十 了 了 1) 工 


这 是 方程 的 通 解 ,其 中 _F1 和 _F2 是 任意 两 个 具有 3 阶 连续 导数 的 一 元 盟 数 ， 
_F3、F4 和 _FS5 是 任意 两 个 具有 2 阶 连 续 导 数 的 一 元 图 数 。 
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【 例 20】 求解 俩 微分 方程 xy 一 Sin(Czry)。 
> pdsolve(D| 1,1.,2.2,2j(u)(Cx,y) 一 


133 


SinCX 关 V)); 


zz y) 一 了 5(Z) 十 _F4(CzDy 十 广 _F3(Cz)yy 十 _ 2Cy) 十 了 1(y)7 


广 Ts V (CCD) 一 cosCzy) 一 7 二 ysinCxy) 

_ CU 
ee ， 

人 cOSCzy ) 十 


开 cOS(y ) 


- 本 


> expand( 2 ) ; 


wzryy) 二 F5Cz) 十 _F4Czyy 十 广 _F3Cz)y 十 _F2( 人 十 _FICy)zx 


十 ySICzy ) 十 记 cOS(CZy 1 一 记 32CHCzy) 十 六 ysin(zy) 


岂 
【 例 21】 求解 二 阶 变 系 数 方程 (7 十 2&2zsech(Rr)2rCz) 一 0 。 


> eql :一 ditiCrCx)，xXx，xXx) 十 2<k2 关 SechCKx<X) 2xTrCOX) 


< 
eol :一 (rz) )+ 2& SechCRr)r(Z) 


> dsolve(Ceq]1 ) ; 


_ Cl /1(cosh(CRr ) 一 1)CcoshCRr ) 十 |) 
人 cOSh( 有 天) 二 








_ YE 《372》 
-OO |cz (二 Sosareeeas cosh(&zr) 1 一 
/coshWr) 一 1)Ccoshtkr) 十 1) ) sh CS 

COShR( 雪 六) 


] 
aretaDn 


[| ak Do 
cOsh(Rr) 


充分 展现 了 Maple 求解 微分 方程 的 能 力 和 水 平 。 





导 题 
1. 求解 一 阶 党 微分 方程 。 
2 
/一 坟 ，  ，， 
(]) y CT 干 巧 ) (2) 》 2sinzx 
(3) y 一 (CosxZCcOS2y) (4 ) 一 < 一。 _ 





yy 十 en 
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2. 求 


(1] ) 十 5(v 一 于 刀 ) 一 0 


(3) 十 6 十 9 一 cos27 (4) (27 十 1722 
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解 高 阶 线性 篆 微 分 方程 。 


3. 解 销 微分 方程 组 。 


(二 ) 


4， 求 


Z 一 27z 十 3y Z 一 y 一 5cost 
人 

3 二 37 十 4y 包 一 27r 十 Y 

解 一 阶 和 偏 微分 方程 。 


(1) (y 十 z)z 十 (z 十 ZJ)z 十 (CZ 十 y)z 一 0 

(2) ( 巡 十 风 )2 十 6zyuy 一 0 

(3) (Z 见 一 274)2 十 (3 六 一 习 y)2 一 9 一 六 ) 
(4) 大 2 一 六 2 二 人 


5. 求解 高 阶 仿 微分 方程 。 


( 二 )《 


(2) zx 十 5xz 十 zaz 二 0 


1 十 z)zs 一 3 十 (1 十 必 )uw 一 0 


6. 求解 偏 敏 分 方程 组 。 


〈]) 


zi 十 (1 十 sinz)a 十 2 十 Z 一 0 


(2 ) 
区 十 2 一 0 


(2) ; 必 一 2 一 3 一 0 


一 4(27z 十 1 十 8vx 一 0 


7 一 27 一 y 十 > 
(3) < 一 2z 十 27y 一 > 
xz 一 十 2y 一 > 


(3) zu 一 9(xw 十 KK 十 ze) 


2 一 Mt 十 Vs 十 并 


了 一 TD 十 ztUs 十 y 


第 6 章 Maple 作 图 


6.1 二 维 曙 数 作 图 命令 (plot) 


6.1.1 二 维 函 数 作 图 


用 plot 命令 可 以 画 出 一 元 函数 在 指定 区 间 上 的 一 维 函 煞 图 形 。 其 用 法 有 : 
plot( 图 数 ,变量 名 ) 并 
plot( 男 数 ,范围 ,选项 ) 


范围 和 选项 均 可 省 略 , 缺 省 时 系统 目 动 选取 最 佳 设置 。 最 简单 的 plot 语句 为 : 
plot(Cf(x),x 一 a..b) 
团 出 jz) 在 区 间 Lo ,oj 上 的 图 像 ,其 中 了 可 为 表达 式 或 过 程 。 


【 例 1】 画 出 蚂 数 扩 z) 二 一 sinz 在 区 间 L0,20j 上 的 图 像 ( 图 6-1)。 


> plot(sin(xX)/xy,Xx 一 0. . 20) ; 
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【 例 2】 画 出 函数 ACz) = 5 必 一 8 在 区 间 [ 一 5,5] 上 的 图 像 (图 6-2)。 


> plot(5 < x2 一 8,x 一 一 5. .5); 


图 6-2 


偿 可 以 眠 制 > 的 取 人 范围 (图 6-3)。 
> blot(5 xxX2 一 8,x 一 一 5..5.y 一 一 20. . 407); 





国 0-3 
【 例 3 了 画 出 图 数 Arz) = tanz 在 区 间 [ 一 6,6] 上 的 图 形 ( 图 6-4) 。 


> blot(tan(Xx),x 一 一 6. .6); 


400 
206 万 


20( 
400 
60( 
300 
1006 
1200 


图 6-: 
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内 为 吨 数 在 部 分 点 的 值 太 大 了 ,掩盖 了 那些 有 限 全 的 上 男 数 点 。 这 时 ,给 图 数 便 一 


个 范围 , 便 可 以 看 到 苹 数 的 轮廓 (图 6-5) 。 
> plot(tan(xX),Xx 一 一 0..6,y 一 一 6. .6); 


6 


图 6-S$ 


函数 的 取 值 区 间 可 包含 无 穷 远 点 ,在 无 穷 远 点 附近 系统 给 出 图 数 的 示意 图 。 


【 例 4】 画 出 函数 /(z) = 一 sinz 在 区 间 (一 cc,cc) 上 的 图 形 (图 6-6)。 


> plot(Cslin(x)7 xxX 一 一 Infinity .infinlity) ; 





-Infinity imfimity 


图 6-6 


如 果 在 绘图 中 没有 给 定 函 数 的 定义 域 ,系统 将 取 默 认 值 L 一 10,104 为 蝎 数 的 征 


义 域 。 
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【 例 5〗 画 出 昭 数 fxz) = xcosz 的 图 像 (图 6-7) 。 
> plot(xx cos(x),x);， 井 取 绘 图 区 则 | 一 10,10 | 


图 6-7 
对 于 表达 形式 较为 复杂 的 郴 数 ,可 以 定义 过 程 , 再 画 出 晒 数 图 像 。 


【 例 6】 画 出 丽 数 Fz) = sinr 十 二 za 十 zcosz 在 区 间 [ 一 3,3] 上 的 图 像 
( 攻 6-%) 。 
>T: 一 X>X3x 人 Sin(x) 十 xX2713 十 Xxcos(Xx):，plot( 人 x),x 一 一 3. .3)3 


玖 6-8 
一 并 一 不， 7 < 一 皂 
【 例 7】 画 出 分 段 函 数 Flz) = 4smxr， 一 SSxST ,在 区 间 [ 一 6,6] 上 


记 ( 人 一 T)， 性 开 


的 图 像 ( 图 6-9) 
> 于: 一 X-> pieceWiSe(X< 一 上 一 X 一 上 上 1,X< 一 上 1 and x> 一 一 也 ， 
sinC(Xx)，x> 了 Pi (x 一 Pi)72) : 
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plot(t(Cx)，x 一 一 6. .6); 





图 6-9 


攻 例 8】 将 一 组 给 定点 列 用 线段 连接 (图 6-10) 。 
> plot([L0.0]1,[1,1],L2,0.51,[L3,41,15,5]]); 


3 
人 4 


3 


0 1 2 3 4 5 
图 6-10 


如 果 要 在 区 间 上 同时 画 多 个 函数 图 形 , 可 使 用 数 列表 。 


【 例 9】 画 出 函数 FGz) 一 一 ez) 一 2sin(3z),jz) 一 疙 在 区 间 [ 一 15.15 
上 的 图 像 ( 图 6-11)。 

> piot(| 一 X2,x2xsin(3xX)x2|.x 一 一 15.. 15) 3 

# 系统 目 动 对 曲线 分 别 染 以 红 `. 绿 、 黄 


了 


-200 


图 6-11 


【 例 10】 分 别 以 样式 "绿色 点 状 "“ 蓝 色 线 状 国 出 困 效 /xz) 三 Sin7， 
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gz) 一 cosz 的 图 像 ( 图 6-12) 。 
> plot(Lsin(x) ,cos(x) ],x 一 0.. 2 * Pi,color 王 [greenyblue ]， 
style 王 | point,line |) ; 


1.0 
0.3 


0 


本 
一 





6-12 


我 们 也 可 以 先 画 出 两 个 男 数 的 图 像 , 然 后 用 鼠标 右键 点 击 某 一 函数 图 像 , 通 过 上 
工具 栏 ( 图 6-13)、 上 下 文 菜单 (图 6-14) 或 图 形 菜单 (图 6-15) 来 修改 图 像 的 属 
。 这 等 价 于 在 plot 函数 中 设置 选项 。 





6-15S plot 菜单 


6. 1. 2 ”plot 命令 选项 


列 为 plot 命令 的 部 分 选项 及 其 意义 。 
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Style 

设置 曲线 样式 , 取 值 ine.point .patch pathnogrid。 默 认 值 是 lne, 将 总 用 折线 
相连 ;point 按 点 状 形式 ;patch 在 包含 面 的 情况 下 显示 面 ; patchnogrid 与 Patch 头 
似 , 但 不 显示 网 格 线 。 

syimboj 

设置 点 的 显示 方式 , 取 值 box、cross ,circle point ,diamond。 当 style 一 point 时 ， 
此 设置 有 效 。 


Symbolsize 
设置 点 的 大 小 。 当 style 王 point 且 symbol 不 为 point 时 ,此 设置 有 效 。 
jijnestyjle 


设置 线 的 显示 方式 , 当 style 王 line 时 ,此 设置 有 效 。 选 项 取 伍 SOLID、DGT 工 、 
DASH .DASHDOT。 也 可 以 用 数字 1.2.3.4 表 示 。 

thickness 

设置 线 的 宽度 , 取 值 正 整 数 。 

aXeS 

设置 坐标 输 的 显示 方式 , 取 仁 boxed framed normal none。 四 ?人 值 是 normal 。 

scaling 

设置 图 形 的 纵横 比 , 取 值 constrained、unconstrained。 当 scaling 王 constratned 
时 ,图 形 按 实 际 大 小 比例 显示 ; 当 scaling= unconstrained 时 ,图 形 随 画 布 的 大 小 上 动 
调整 纵横 比 。 

coOords 

设置 函数 的 坐标 系 , 取 值 bipolar、cardioid .cassinian .elliptic、hyperbolic invcas- 
sinian jinvelliptic logarithmic、logcosh .maxwell、parabolic、polar rose tangent。 对 
认 什 为 直角 坐 标 系 。 

discont 

当 discont 一 true 时 ,系统 先 判断 函数 是 否 连续 ,然后 将 绘图 区 域 分 为 几 个 连续 
的 区 间 后 绘图 ,默认 便 是 false。 


view 

设置 图 形 的 视野 范围 ,view 王 [xmin.. xmax,ymin, . ymax jj。 
title 

设置 图 形 的 标题 ,title 二 字符 串 。 

jecend 


设置 图 例 。 当 同时 显示 多 条 曲线 时 ,legend= 字 符 串 列表 ,分 别 对 每 条 曲线 加 以 
说 明 。 
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labels 

设置 坐标 输 的 标注 。labels 王 字符 串 列 表 。 

jabeldqirections 

设置 坐标 轴 的 标注 的 书写 方向 , 取 值 horizontal vertical。 

numpoaints 

设置 图 形 的 采样 点 个 数 。 默 认 侦 是 50 个 。 

Sainpjle 

设置 图 形 的 初始 采样 点 。sample 王 及 样 总 序列 。 当 adaptive 王 false 的 时 候 , 此 
选项 明确 地 控制 图 形 的 表现 。 

adaptive 

肤 认 的 采样 点 由 numpoints 和 sample 控制 。adaptive 王 true 将 在 曲线 索 曲 的 地 
方 细 分 采样 点 ,以 提高 图 形 的 精度 。adaptive= false 将 取消 局 部 的 细 分 。 


fijledgd 
设置 是 否 用 颜色 填充 曲线 与 工 轴 之 图 的 部 分 , 取 值 true 或 false。 
tickimarks 


设置 坐标 轴 刻 度 的 个 数 ,ttickmarks 王 Lmynji ma 和 ?7 必须 是 正 整 数 , 也 可 以 取 
default ， 

Xfticknaarks 

设置 z 轴 刻度 的 个 数 。 

ytickmarks 


设置 y 轴 刻 度 的 个 数 。 


coOlor 


设置 曲线 颜色 。color 三 类 色 名 称 或 颜色 值 。 表 6-1 列 出 了 24 种 常用 的 颜色 
选项 。 


表 6-1 章 用 的 颜色 选项 


areen 绿色 黄 褐色 
magentai 红 紫 色 栗色 


coOral 
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续 表 
选 项 颅 色 选 项 粘 色 





E 例 11】 请 比较 constrianed 和 unconstrained 选项 效果 (图 6-16 ,6-17) 。 
> plot(Csdrt( 一 x2),x 一 一 1. .scaling 一 constrained); 井 按 原 比例 绘图 





-1-0.8-0.6-0.4-020 020.40.6 0.8 1 
X 


图 6-16 


> plot(sqrt(1 一 x2),x 一 一 ]..1);， 间 图 形 比例 由 画布 大 小 决定 


或 plot(sqrt(1 一 X2),x 一 一 1..1,scaling 一 unconstrained ) ; 





-08 -04 0.4 0.8 


图 6-17 


【 例 12】 设置 曲线 的 闫 色 .标题 和 图 例 ( 图 6-18) 。 
> blot(| sin(x) ,cos(x) |,x 一 一 Pi.. Pi， ttle 一 "Simple Trig Functions"”， 


color 王 | red,blue j,style 王 | lne,point ,jegend 一 | "Sine" Cosine”| ) ; 
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SImple Irig Functions 





SNlne 
29299344 和 (COSIne 


0-18 


【 例 13】 设置 曲线 的 样式 .比例 ,不 显示 坐标 轴 ( 图 6-19)。 


> plot(Ccos(Xx),x 一 0. .2 类 了 Pi，style 二 point，Ssymbol 王 cross，axes 一 none， 





scalijng 王 constralined ) ; 


症 导 十 + HH 
十 | 
十 
十 十 
十 十 
和 
， 机 1 
十 + 
5 
We 村 
0-19 


6. 1.3 参数 方程 作 图 


如 朱 胃 数 用 参数 方式 表示 ,也 能 用 plot cerisoana 有 oo 
plot(Lx(t) 刘 二 aL 站 ,选项 ) ， 人 
plot([[x(t) 'Y(CD， esa b]， [ucb ， vt)， t 一 c. Na .选项 ) 


克 一 ] 十 cos: 


【 例 14】 画 参 数 曲线 1y ~ sin ,4 [0.2zx]( 图 6-20) 
> blot(| 1 十 cos(t) ,sin(t),t=0. .2 关 Pi|); 
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0.3 
0 
2 
| 
图 6-20 
1 一 COSL 一 3 
COSL 
【 例 15〗 同时 画 出 参数 曲线 1|，_ sinr,t ee [一 x,0] 和 


V2 一 2sinz 
1iEG|0,r| (图 6-21) 


> plot(LLcos(Ct) ,sin(t),t 一 一 Pi. .0 ],|3x*cos(t),2x sin(t),t 一 0. .Pi] ]); 





6. 1.4 特殊 坐标 系 下 作 图 


通 篆 用 plot 男 直 角 坐 标 下 的 图 数 图 像 , 即 系统 取 默 认 值 coords 王 cartesian 为 笛 


卡 儿 坐标 。 通 过 设置 coords 选项 ,plot 也 可 以 画 出 特殊 坐标 下 的 函数 图 像 。 例 如 ， 
画 极 坐标 下 图 获 了 一 rv"4 | 


plot(r(D， 下 疆 和 、 bicoords=polaD 
plot([r(b， ff ta 站 oords=polan 


在 6. 3 节 中 ， 还 将 给 出 plots 卫 数 包 中 面 特殊 坐标 系 下 的 函数 图 形 命令 ,例如 
polarplot( (从 ， t 二 下 有 和 
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表 6-2 列 出 了 可 在 plot 命令 中 使 用 的 特殊 坐 标 系 。 
表 6-2 ”可 在 plot 命令 中 使 用 的 特殊 坐标 系 


选项 选项 坐 标 系 
logcosh maxwel| 麦克 斯 韦 坐 标 
parabolic 抛物 线 坐标 极 坐标 


【 例 16】 特殊 坐标 系 下 的 函数 图 像 ( 图 6-22 一 6-26)。 
> plot(Lcos(6 <* xX) ,xy,x 一 0. .2 < Pi jcoords 一 polar) ; 


. .ZX 关 也 D); 
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> plot(cos(6x t),t 一 一 Pi.. Pi,coords 一 bipolar); 井 双 极 坐标 





图 6-24 


> plot(cos(6 * t),t 一 一 Pi.. Pi,coords 一 elliptic); 井 权 圆 坐标 


> plot(cos(6 * t),t 一 一 Pi . Pi,coords 王 maxwelli);，# 麦克 斯 韦 坐 标 





0-20 
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6.2 三 维 困 数 作 图 命令 (plot3d) 


6.2.1 三 维 函 数 作 图 


男 二 元 函数 fxz,y) 的 三 维 图像 可 用 plot3d 命令 : 
et3d((Gxiy4x 二 2 .by=C 4, 选项)， , 
与 blot 函数 相似 ,plot3d 的 选项 可 有 可 无 ,项 数 可 多 可 少 。plot3d 的 部 分 选项 
的 名 称 和 功能 的 细节 请 看 6. 2. 3 区 。 


II LU RD 省 一 - 上 
【 例 17】 画 出 图 数 帮 z2y) 1 十 sintzr 十 coslty 和 7 安 直 的 国 懈 


(图 0-27 ) 。 
二 GE 





























0.8 由 W/ 由 | 人 

和 0 人 由 | 册 0 

"人 意 由 站 记 ， W 3 

wa 3 。 加 
一 


图 6-27 
单 击 plot3d 图 形 ,此 时 的 上 下 文 工 具 栏 不 同 于 plot 图 形 的 上 下 文 工 具 术 
(图 6-28) 。 


9 [1 站 [io 0 司 - vv DU 吧 > 


0-28 


工具 栏 中 各 按钮 的 作用 见 图 6-29 。 
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呈 | 120 “ 宙 。 调 整 图 形 左右 旋转 角度 围 | 60 四。 调整 图 形 上 下 旋转 角度 
一 ~ 设置 图 形 的 绘图 样式 辐 ~ 设置 坐标 轴 的 显示 方式 
iD wa 


妈 置 图 形 的 纵横 比 







芭 置 孔 标 的 用 途 
0-29 


【 例 18】〗】 画 出 双 曲 抛物 面 (马鞍 面 )z 一 习 一 昂 , 一 1] 过 zy 委 1( 图 6-30)。 
1 要 GZ 一 一 WE 一 


有 WA 
NE 人 
WA 


【 例 19】 画 出 函数 BCz,y) 二 sn ,2<zvy 云 2 的 图 形 (图 6-31)。 


ws 了 DOt3 攻 eta 一 和， 2 一 2 2) 
抽风 


和 


本 
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【 例 20】 画 出 函数 Foz,y)=zye ,一 2 过 zy 妥 2 的 图 形 ( 图 6-32) 。 
> DOt3UCRY GERKG 一 到 2 一 r2)x 一 一 色 .2y 一 一 2 .2vcolor= 一 xy 音 童 击 
图 形 , 绸 设置 图 形 的 绘图 样式 为 使 用 多 边 形 面 片 





0-32 


【 例 21】 两 相交 平面 (图 6-33) 。 
> bb15t3d (| 斑 十 2 7 一 1 天 一 72 一 一 3 .3 一 3..37， 





0-33 


【 例 22】 画 出 球面 与 锥 面 所 围 立 体 及 其 表面 (图 6-34) 。 
> plot3d(C|Lsqrt(8 一 2 一 六 2 sq 天 一 一 2. . 27 一 一 2.. 27， 
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SN RN 


站 
生 WE 
竹 和 和 上 避 
W WO 





6.2.2 三 维 参 数 方程 作 图 
用 plot3d 命令 画 三 维 参 数 曲 面 (zGs;z,y(s,D， 之 (S， 间 ) 的 一 和 形式 为 : 


aa ao ， si sb]sra 吕 二 


其 中 区 sz 和 是 天 于 s 和 / 的 表达 趟 , 广 & 是 有 两 个 参数 的 过 程 。 


(zy) 一 ZSInZCOSYy 
9 = 二 要, 二 -= 


【 例 23】 男 出 参数 曲面 4:v(Czy,y) 一 zcoszcosy， 
0 簿 yy 入 
CT,Vy) 一 ZSIny 
> plot3d(| xx sin(x) < cos(Cy) ,xx cos(CxX) x cos(Cy),xxsin(Cy) |]， 


X 一 0. .2#Piy= 王 0.. Pi,labels 王 [| 了， ， 友 7)， 





(图 6-35 ) 。 


1 
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tZV) 一 一 coss 
V2 


有 义 1 一 
j 24】 画 出 阿 基 米 德 螺旋 面 4Z(CZyy) 三 一 天 siny ，、 人” (图 6-36)。 
【 例 24】 画 出 阿 基 米 德 螺旋 面 万 ER 图 


Ar 


zzyy) 一 赫 和 斗 二 


> plot3d(L 一 tx cos(S)/sqrt(2) ,一 tx sin(s)/sqrt(2) vt SEC2) 十 5S727 Ri |， 
trSO 关上 蕊 Da 





6. 2.3 plot3d 选项 


plot3d 命令 部 分 选项 的 名 称 和 功能 与 plot 的 选项 相似 , 例如 : axes、coords、 
fljed、labels、style、symbol、symbolsize 、linestyle、numpoints、 scaling、thlickness、 
title .view。 其 中 fled = true 将 填充 图 像 与 zy 平面 间 的 区 域 ， style 除了 point， 
patch, patchnogrid 外 , 还 有 hidden, wireframe, contour, patchcontour 这 此 取 值 。 
wireframe 等 同 于 line;hidden 用 线 绘制 图 像 ,但 被 前 面 的 曲面 遮挡 住 的 线 而 不 显示 ; 
contour 显示 等 高 线 ;patchcontour 显示 曲面 和 等 高 线 。 另 外 contours=n 可 以 控制 
等 高 线 的 数量 。view 三 [xmin. . xmax，vymin. . vmax，zmin. zmax | 控制 显示 的 图 
像 范围 , 而 view 三 min.. max 的 格式 只 控制 > 轴 的 显示 范围 。coords 取 值 请 
见 6.2.4 或 plot3dLcoordsj。 下 面 列 出 部 分 三 维 图 形 选 项 : 

grid 

grid 王 Lm,nj 将 zy 区 间 分 成 2*7 个 方 格 。zm 与 2 越 大 ,图 像 越 清 晰 。 
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gridstyie 

控制 网 格 形状 , 取 值 rectangular 或 triangular。 当 style 王 patch line 或 hidden 
时 有 效 。 

color 或 colour 

控制 图 像 的 色彩 。 预 定义 的 色彩 和 color= 王 COLOR(CHRUE/RGB,…) 精 确定 义 
的 色彩 同样 有 效 。 这 样 三 维 图 像 内 外 表面 用 单 色 显 示 。 而 三 维 图 形 经 前 根据 3 个 分 
量 值 绘制 随 图 像 变 化 的 色彩 ,plot3d 文 持 color 等 于 函数 或 过 程 的 春色 法 。 如 末 是 
一 个 值 ,将 以 HUE 来 理解 ;如 果 是 3 个 值 组 成 的 序列 ,将 以 RGB 的 3 个 分 量 来 理 
解 。 另 外 由 于 参数 表示 的 问题 ,这 时 color 用 男 数 还 是 过 程 来 表示 ,必须 跟前 面 贺 像 
的 表示 一 致 。 

shading 

另 一 个 关于 表明 如 何 着 色 的 选项 , 取 全 yz,zy,z,zgrayscale,zhue 或 non。 介 
color 的 设置 更 优先 。 

light 

light 一 Lphiy,thetar， gbj 从 球 坐 标 phi,theta 方 问 增加 一 个 ~,g,2 表示 的 色彩 
的 直射 光源 。r,g, 必须 介 于 0 与 1 之 间 。 

lightmodejl 

用 一 个 预定 义 的 光源 照射 图 像 ,这 些 光 源 包 括 none、lightl、lightz、light3、 
light4 。 


aimbientjight 
ambientlight 一 Lryg,bj 设 置 一 个 RGB 表示 的 漫 射 光 。 
Orientation 


orientation 一 | theta,phij 设 置 图 像 观 察 者 的 人 射 角度 ,相当 于 在 什么 位 置 观察 
图 像 。 用 球 坐 标 系 王 的 两 个 角度 theta 和 phi 来 表示 ,默认 这 两 个 角度 都 是 45 上 度 。 

projection 

projection 一 r 设置 透视 效果 ,这 里 -> 取 0 到 1 之 间 的 实数 。1 代表 正 交 投影 ,0 
代表 广角 透视 , 而 fisheye.normal、orthogonal 分 别 对 应 > 取 0.0.5、1。 默 认 值 为 


orthogonalj。 
【全 25】 设置 axes、grid 选项 (图 6-37) 。 
> plot3d(| sx cos(Ct) <* (2 十 cos(CS 十 t)), sx SinCt) x(2 十 cos(CS 十 t))， sx SInCSsS 十 
t) 1]，s 一 0. . 3 x Pi,t 一 0. . 2 * Pi,axes 一 noneygrid 一 | 50,50 |) ; 
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aa - - - 





【 例 26〗 画 出 用 过 程 定 义 的 参数 曲面 。 观 察 不 同 选项 style 下 的 图 形 
(图 6-38 ) 。 
> [CnCxJ wosa 81 一 (xyJ=sSinmC) x SInCV) : 
h : 一 (xy,y)-> cosCx)/1. 5: tag 3 机 /0 六 间 现 5， 














有 了 号 
ii 六 
人 和 六 
二 本 1 、 
和 有 
筷 人 大 | 和 3 本 
放 -， ww 四 了 < * 内 8 

等 机 z 了 H 2 
Na 天 : 澳 
> : 
NE 
和 1 ~ 





point patchnogrid patchcontour 





2 


Re 


人 - 


contour hldden Wilreframe 
060-38 


【 例 27】〗】 观察 比较 不 同 选项 的 效果 (图 6-39) 。 
> blot3d( 一 yx expD( 一 六 2 一 27 ,xx 一 一 2 yy 一 一 2. .2); 








~ 人 站 | 村 ] 晴 ) 条 是 So 久 
号 生 有 “二 ae 芭 ee 环 
> ascwpEE AP 
本 ” 订 和 和 基 区 三 和 AS hv 
0 二 CR 
、 


7 
nt 


天 多 交 | 
站 全 入 归 避 | 得 闪 ， 人 . | 本 
2 < 这 5 1 8 | Su 一 AR 
六 交 4 生 ap Pt 
这 、 和 4 ae 最 ai 人 


到 v 


Le AAA 


styje=patchcontour style=lline Style=contour 
axesS=normal axeSs=normal aXeS=none 


图 6-39 
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6.2.4 特殊 坐标 系 下 的 plot3d 作 图 


在 plot3d 作 图 中 ,coords 的 选项 值 有 29 个 。 我 们 熟悉 的 有 cylindrical ( 柱 兴 
标 )、sSpherical ( 球 坐 标 )。 除 此 之 外 还 有 bipolarcylindrical、 blispherical 、cardioidal 、 
cardioldcyjlindrical 、casscylindrical 、confocalellip 、confocalparab 、conical _ellcylindri- 
cal、ellijpsoldal、hypercylindrical 、invcasscylindrical invellcylindrical invoblspheroi- 
dal 、 invprospherolidal、 logcoshcylindrical、 logcylindrical、 maxwellcylindrical、 
oblatespheroldal 、paraboloidal 、paracylindrical、prolatespheroidal、rosecylindrical、 


SIXsphere tangentcylindrical tangentsphere ,toroidal 。 


【 例 28】〗】 用 柱 坐 标 作 图 (图 6-40) 。 
> plot3d(Cheight,angle 一 0. . 2 * Pi,height 王 一 5..5，coords 一 cylindrical， 
titlje 一 ”CONE 、) ; 





0-40 
【 例 29】 在 柱 坐 标 和 球 坐标 下 作 函 数 Fr,0) 王 rcosb 的 图 形 ( 图 6-41)。 


cylindrical 1 cylindrical 2 





多 LA 
0 


一 





6-41 
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> plot3d(Cr * cos(theta) ,Tr 一 0. . 6,theta 一 0. . 2 * Pi，coords 一 cylindrical ， 
title 一 "cylindrical 二 ) ; 
plot3d(Cr x* cos(Ctheta) ,r 一 0. . 6 ,theta 一 0. . 2 * PI，coords 一 spherical， 
title 一 "cylindrical 公 ) ; 


【 例 30】 用 球 坐 标 作 图 (图 6-42 ,6-43 ) 。 
> plot3d(1,t 王 0. .2 * Pi,p 王 0. . Pi,coords 一 Spherical); 井 单位 球 


一 
3 ES 
四 er 


HE 


尖 
CC 





> 节 j6t3dktecos(GCX2) SinG7) 一 一 2XPLU xDPy= 一 户 . ,了 Pi， 


coords 一 spherical ，numpoints 王 10000 ) ; 





6.3 plots 图 数 包 


在 plots 包 中 有 56 个 画图 命令 和 选项 设置 命令 ,在 本 节 中 只 能 列 出 部 分 命令 。 
动 国 演 示 命 令 animate animate3d 和 animatecurve 在 6. 4 节 中 介绍 ,绘制 微分 方程 
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数值 解 的 图 数 图 像 的 命令 odeplot 在 第 5 章 中 介绍 。 

> with(Cplots ) ; 

Lanimate， animate3d， animatecurve， arrow， changecoords， complexplot， 
compjlexplot3d， conformal,， conformal3d， contourplot， contourplot3d， 
coordplot， coordplot3d， densityplot， display， _ display3d， fieldplot， 
feldplot3d，gradplot，gradplot3d，graphplot3d，implicitplot，implicitplot3d， 
Inequal ， lnteractive， interactiveparams， 1listcontplot， 1listcontplot3d， 
listdensltyplot， lstplot， listplot3d， loglogplot， logplot， matrixplot， 
multiple，odeplot，pareto，Pplotcompare，Ppointplot，pointplot3d，polarplot， 
polygonplot，polygonplot3d，polyhedra _supported，polyhedraplot，replot， 
rootlocus， semllogplot， setoptlons， setoptilons3d， Spacecurve， 


sparsematrlxplot，surfdata，textplot，textplot3d，tubeplot | 


6.3.1 图 形 的 合成 和 显示 


、 display 图 形 列表 ,选项 ) 0 一 - 
replot 命令 令 最 儿 和 将 被 display 命令 所 代 蔡 ， 放 推 荐 使 用 iisplay 合 合 令 。 


【 例 31】 观察 3 幅 tan(x) 的 郴 数 图 像 ( 图 6-44 一 6-46 ) 。 
> plot(Ctan(Xx) ,x 一 0. . PI) ; 





图 6-44 


> replot(% ,view 一 [0. . 声 , 一 5. .5]); 
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图 6-45 
> replot(% ,style 一 point,title 一 "y 一 tan(X)”); 


一 tan(x) 





图 6-46 
【 例 32】 两 个 图 形 画 在 同一 个 坐标 系 中 vs 两 个 图 形 分 别 画 在 不 同 的 坐标 系 中 
(图 6-47 ,6-48) 。 
> 上 上 :一 plot(cos(x),x 一 一 Pl. .Pi,y 一 一 2..2,style 一 ne) : 
> :一 Diot(x2,x 一 一 2..2,y 一 0. .3,Sstyle 王 polnt) : 
> display(F,G,scaling 一 constrained); 并 (下 ,G) 或 4F,G} 或 上 F,G 


3 
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> displayCarray(| 下 ,Gj) ,scaling 一 constrained ) ; 





6.3.2 空间 曲线 


Spacecurve( 参数 由 线 , 范 围 ,] 2 2 





【 例 33】 画 一 条 空间 曲线 (图 6-49 ) 。 
> with(Cplots ) : 
> spacecurve(| cos(t) ,Sin(t) ,tj,t 一 0. .4x 了 Pi); 





图 6-49 


【 例 34】 画 一 组 空间 曲线 (图 6-50 ) 。 
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> Spacecurve({t[Lsin(t),cos(t) ,一 1,t 一 0.. 2 * Pi,color 一 red]， 
[ecosK2 天 人 sinC2 st 0t=0 Pi,color 王 blue |， 
[cos(t) ,sin(t) ,1,t 一 一 Pi. . Pi,color 王 black | ) ; 


6. 3.3 特殊 坐标 系 下 作 图 命令 


1. 极 坐标 
” polarplot( 函 数 ,范围 ,选项 ) 
【 例 35〗】 在 极 坐 标 下 画 出 像 蝴 蝶 的 函数 图 (图 6-51) 。 


> with(Cplots ) : 
> pojlarplot(exp(cos(t 一 PV/2)) 一 2x* cos(4x(t 一 Pi/2)) 十 sin((t 一 Pi/2)/12)”5， 


t 一 0. . 30 * 忆 i,axes 一 none) ; 





0-S1] 


【 例 36】 画板 叶 图 案 ( 图 6-52)。 
> polarplot(L100/(100 十 (t 一 Pi/2)"8) * (2 一 sin(7 x t) 一 cos(30 x t)/2) ，t， 
t 一 一 Pi/2. . 3/2 * Pi |，axes 一 none) ; 


图 6-S2 
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2。 柱 坐标 


16 艺 数 ,范围 ;选项 ， 


【 例 37】 简单 的 柱 坐 标 函 数 图 像 ( 图 6-53 ,6-54) 。 
> cylhnderplot(t,t 一 0. . 3 * Pi,z 一 0. . 10,style 一 patchnogrid) ; 








0-S3 


> cylinderplot(t 十 z,t 王 一 Pi. . Pi,z 一 0. . 5) ; 





0-S4 


3。 球 坐标 


sphereplot( 函 数 , 范 围 , 选 项 ) 
【 例 38】〗】 球 坐 标 困 数 图 (图 6-55 一 6-57)。 


> Sphereplot(cos(t) ,z 一 0. .2 * Pi,t 一 0. . Pi,color 一 zZ) ; 
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0-S5S 





0-S0 


> Sphereplot(cos(t"5) x* Sin(z/5) ,z 一 0. .2 < Pit 一 0:. . Pi) ， 
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6. 3.4 村 值 线 图 、 密 度 图 、 向 量 场 图 和 梯度 图 








【 例 39】 函数 F(z,y) 王 一 一 二 的 等 值 线 图 (图 6-58 一 6-60) 。 
有 ”二 多] 


> with(Cplots ) : 


> contourplot( 一 3 * X/(x2 十 Y2 十 1) ,x 一 一 4.. 4,y 一 一 4. .4,flled 王 true) ; 
contourplot( 一 3 * X/(x2 十 y2 十 1) ,x 一 一 4. .4,y 一 一 4. . 4); 


| 
TSD 从 万 


4 
铬 0-S8 0-S0 





> contourplot3d( 一 3 * X/ACx2 十 六 2 十 1) ,x 一 一 4.. 4,y 一 一 4. .4,flled 王 true) ， 





图 6-60 


【〖 例 40〗】 函数 F(Gzxz) 一 sin(Ccos(z 十 )) 的 等 值 线 图 (图 6-61,6-62) ， 
> contourpjot(sin(cos(x 2 十 六 2)),x 一 一 10. . 10,y 一 一 10.. 10 ,fljled 王 true) ; 
contourpjot3d(sin(cos(x2 十 yY2)),x 一 一 10.. 10,y 一 一 10. . 10,fjled 王 true) ; 
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2. 密度 图 


densityplot( 国 数 , 范 围 , 选 项 ) 


【 例 41】 胃 数 的 密度 图 (图 6-63 ) 。 
> densityplot(sin(1/(xx y) ),x 一 一 1..1,y 一 一 1.. 1,axes 一 boxed) ; 





3. 回 量 场 图 


fieldplot( 向 量 场 ,范围 ,选项 ) 
fieldplot3d( 回 量 场 , 范 围 , 选 项 ) 


【 例 42】 画 二 维 向 量 场 (图 6-64) 。 
> fieldplot([ sin(2 x* xx y),cos(2 x* x 一 y)],x 一 一 2.. 2,y 一 一 2.. 2,axes 一 


boxed ) ; 


1695 
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SA 
SnAtv 1 ， 
Sm ee | 
VAN 一 了 





图 6-64 


维 向 量 场 ( 图 6-65) 。 


> fieldplot3d(| x>2,yx 全 


boxed ) ; 


图 二 


【 例 43】 





图 6-65 


4. 樟 度 图 


ES 








国 二 维 梯度 图 (图 6-66 ,6-67) 。 


【 例 44】 





WA 
AAA 
SA 
和 
Ni 


忆 


一 一 一 


村 


几 
拖 
和 
上 
和 
1 
4 
N 
忆 


站 
开关 玫 下 和 
站 
站 下 
ee 


汲 而 话 
和 
站 齐 
了 了 
因而， 
IE 1 
1 1 
ii 4 
时 
呈 届 二 
有 
WIN 久 
N NA 
NA 
地 









9 AAA oo 


~ 一 一 一 


- 记 











图 6-66 
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> gradplot(xx yy,X 一 一 2. .2,y 一 一 2. .2,axes 一 boxed) ; 
> gradplot(sin(3 x 式 ) % c0S(3 xy) ,X 一 一 2. .2Vy 一 一 2 . 27， 


2 \ 了 7 二 
5 沁 | 
ae mm 所 
aero mw 『 ol/ 
二 一 一 一 一 | 
Po | ~ 一 人 AN 一 | 
4 上 


》 


ji 


隐 且 为 而 刘 台 是 | ， | 
www 让 


ee 人 ee 
Mew 和 痢 ie ww mw 生 

-7 | Y<-z1| 认 窒 和 Vwwy| 

1 上- 恋 玫 1 | 

一 

ae 一 


am nm 所 一、 六 渤 
”ww ie 


ev 2 4 
有 汉 





[有 攻取 汪 
mA mw 
2 


隐 
0 ] 2 
图 6-67 


【 例 45】 男 三 维 梯度 图 (图 6-68)。 
> gradplot3d(x`2 十 yY2 十 Z2,x 一 一 ]. .1,y 一 一 1..1,z 一 一 1.. 1,axes 一 boxed); 





0-08 


6.3.5 隐 有 函数 作 图 





【 例 46】 画 出 二 次 曲线 关 一 =1 和 二 十 y 三 1( 图 6-69)。 

> with(plots ) : 

> implicitplot(| x2 一 六 2 和 1,x2 十 2 王 ] | ,x 一 一 Pi.. Pi,y 王 一 Pi. . Pi， 
color 一 | blue,red |，legend 王 | "x2 一 六 2 王 1"，，x2 十 y2 一 1” | ); 
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也 
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这 
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X^2-y^2=] 
X^2+Y^2=] 





6-69 


【 例 47】 画 出 上 数 袜 十 交 王 衬 的 图 形 (图 6-70) 。 
> Implicitplot3d(x2 十 六 2 王 72,x 王 一 ].. 1,y 王 一 1..1,z 王 一 1. .1)， 





【 例 48】〗】 画 出 函数 屏 十 罗 十 品 十 1=(Cz 十 y 十 z 十 1)3 的 图 形 (图 6-71) 。 
> iniplicltplot3d(x3 十 庆 3 十 7 3 十 1= (xz 十 y 十 z 十 1)"3，X 一 一 2. .2，y 一 一 2 .2， 
Z 一 一 2..2，style 一 patchnogrid，numpoints 一 10000 ) ; 
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6.3.6 数据 点 列 作 





〖 例 493〗 男 折线 图 (图 6-72) 。 


> with(Cplots ) : 
> Listplotk| 3 2 且 下 0 7 7 


10 


2 于 0 8 
0-72 


,Surfdata 命令 用 数据 组 构造 空间 曲面 。 


Y 
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【 例 50】〗 画 由 两 组 数据 生成 的 两 张 空间 曲面 (图 6-73) 。 

> dl : 一 seq(Lseq([Li,j,cos((i 十 j)/5. )],i 一 一 5. . 5) | ,j 王 一 5 .57， 
d2 : 一 seq(|seq([Li,j,sin((i 十 j)/5. )],i 一 一 5. . 5) ,一 一 5. . 5， 
surfdata(LLdl j,Ld2]],axes 王 frame,labels 王 [xy,y,z]); 





NS 
HA 1 
AAA 

多 






区- 
图 6-73 


6.3.7 复 函 数 作 图 


【 例 51】 复 图 数 cos(Cz 十 门 (图 6-74) sec(Cz) 的 图 像 ( 图 6-75) 。 
> with(Cplots ) : 
> complexplot(cos(x 十 IT) ,x 一 一 Pi. . Pi) ; 
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> complexplot3d(sec(z) ,z 一 一 3 一 3x 工 .3 十 3 x* T,axes 一 framed) ; 





Conformal 和 conformal3d 命令 的 功能 是 :绘制 复 平 面 上 的 矩形 区 域 在 解析 本 数 
映射 下 的 像 。 


【 例 52】〗】 共 形 映射 (图 6-76 一 6-81) 。 


> conformal(exp(z) ,z 一 1.. Pix 了 IT); 





0-70 


AN 


Se 
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> conformal(1/ 人 六 32 二 一 1 一 工 。 1 十 [L, 一 6 一 5x 工 . 6 十 5xT7， 





0-78 
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> conformal3d(Ccos(z) ,z 一 0. .2 xx Pi 十 Ix Pi) ; 





tubeplot( 空 间 曲 线 ,选项 ) 
【 例 53】 弹簧 (图 6-82) 喇叭 花 ( 图 6-83) 、 双环 (图 6-84) 。 


> with(Cplots ) : 
> tubeplot(Lt,3 x* cos(t),3 x* sin(t) |],t 一 一 4x* Pi. .4x* Pi,radius 一 1); 





图 6-82 


tubeplot(Cf(Lt cos(t) ,sin(t) | ,| tcos(t) ,一 sin(Ct) ]),t 王 一 1..1，radius 一 t) ， 


AN 





图 6-83 
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> tubeplot({Lcos(Ct) ,sin(t),0],|0,sin(t) 一 1,cos(Ct) ]),t 一 0.. 2 * Pi，radius 一 
17/4); 





图 6-84 


2. 鼻头 或 向量 








【 例 54】 箭头 图 形 ( 图 6-85 ,6-86 ) 。 

> al : 一 arrow(| seq(<sin((2 xi 一 1)/6x* Pi) ,cos((2xi 一 1)/6x* PiD)> ,1 一 1..6) |， 
color 王 red,shape 王 arrow) : 
a2 : 一 arrow(| seq(<sin(2x*1/6x* 了 Pi),cos(2x*i/6x*PD)> ,= 一 1..6) |， 
color 一 blue,axes 一 boxed) : 


> display(al ,a2); 





= US 0.3 ] 
图 6-85 


> arrow(| seq(<cos(Ci/3 * Pi) ,sin(i/3 * Pi) ,1> ,i 一 1..6) |); 
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3. 不 等 式 区 域 
inequal( 不 等 式 9 范围 9 选项 ) 


【 例 5】 求解 不 等 式 (图 6-87) 。 

5 十 EU Oo 一 天 一] 一 人 35 
y 二 一 3..3，optionsexcljuded 王 (color 王 gray)); 井 蓝 色 区 域 和 实 线 边 界 为 不 
等 式 的 解 集 





6.4.1 动画 命令 (animate) 


要 [a, 刀 上 的 函数 /xz) 动 起 来 , 作 动画 演示 ,我 们 可 以 使 用 命令 : 
animate({(xyt)*x 一 a ,bt 一 c..d) 

animate 为 数 在 plots 困 数 包 中 ,使 用 前 要 先 调 出 plots 函数 包 。 

【 例 56〗】 动画 演示 sin(Cz) 图 像 ( 图 6-88) 。 


> wlth(Cplots ) : 


> anlmate(SIin(X 一 t),x 一 一 2 Pi.. 2 x* Pi,t 一 0. . 10,scaling 一 constrained ) ; 
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运行 命令 后 ,看 到 的 是 静止 的 图 ,为 t=0 时 的 函数 图 像 。 单 击 上 下 文 工 具 栏 ( 图 
6-89) 中 的 区 按 钮 ,图 形 立 即 “ 动 > 了 起 来 。 工 具 栏 中 按钮 的 功能 见 图 6-90。 


人 RS 人 3 河 大 区 2 
人 ， , ES 了 。 - 7 到 二 二 0 
er 呈 人 这 0 过 0 六 学 名 人 ROY 2 和 站 滨 有 
站 0 六 ON 2 呈 ， 2 和 2 : 本 





停止 /暂停 动画 开始 /继续 播放 动画 、 播 


设置 播放 方 同 、 播 放 次 数 、 动 画 速 度 《〈 每 秒 帧 数 ) 


eaeaeweeeieee newe seeeewieeneeereew ae -emnaeeeeeemw -we<=eeeeeenenemv 一 < 


缩放 绘图 坐标 轴 、 平 移 坐 标 轴 





0-90 


animate 加 数 的 一 般 形 式 为 : 
animate( 画 图 命令 , 郴 数 ,范围 ,选项 ) 
如 果 画 图 命令 是 plot, 则 可 省 略 。 
【 例 57】〗 演示 一 条 摆动 的 曲线 (图 6-91) 。 选 项 frames 王 value 可 设置 动画 的 帧 
数 ,默认 值 16。 系 统 通过 依次 显示 每 帧 图 形 . 从 而 演示 动画 过 程 。 其 他 选项 和 plot 
国 数 的 选项 基本 一 致 。 


> animate(xt,x 一 0. . 1 ,t 王 0. .0,frames 王 40,color 一 blue,axes 一 none) ; 


六 AAA 


图 6-91 


【 例 58】〗】 演示 过 程 为 参数 的 动画 (图 6-92) 。 


~、 animate((xyt)-> sin(tx x),0. . Pi,1.. 16 ,coords 王 polar,numpolints 一 100 ) ; 
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【 例 59】 将 圆 (x 一 1 条 十 六 二 1 红 原 点 旋转 (图 6-93) 。 
> animate(| cos(s) 十 cos(t),sin(s) 十 Sin(t),s 一 0..2x*Pijl,t 一 0..2x<Pi); 





图 6-93 


〖 例 60】 红 点 泊 着 蓝 色 曲线 清 动 (图 6-94) 。 
> curve : 一 blot(sin(x) ,x 一 0.. 10,color 一 blue) : 
> animate(pointplot,|Ltysin(t)] ,symbol 王 circle,symbolsize 一 20 |， 


t 一 0. . 10 ,color 一 red,background 一 Curvey) ; 


三 2.5000 





animate 也 可 用 来 演示 三 维 动画 。 
【 例 61】 直角 举 标 系 下 三 维 动画 (图 6-95 ) 。 
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> animate(pljot3d,| xx sin(xx* y 十 t)/2,x 一 一 Pi. . Pi,y 一 一 4..4j|，t 一 一 2x# 
FL 2 半 电 i) 


大]1.0472 





【 例 62】 参数 坐标 下 三 维 动画 (图 6-96) 。 
> animate(plot3d,| cos(tx Xxy),x 一 1..4,y 一 1..4j],t 一 1. .2); 


上 1.37250 





【 例 63】〗】 球 坐 标 下 三 维 动画 (图 6-97) 。 
> animate(plot3d,| cos(tx X) x* Sin(t x y),Xx 一 一 Pi. . Pi,y 王 一 Pi. . Pi， 


color 一 cos(Xx y) ,coords 一 spherical，t 一 1..2|); 





0-97 
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【 例 64】〗】 显示 两 个 田 数 的 三 维 动画 (图 6-98) 。 
> anlmate(plot3d,L{(x 十 y) 十 tx x,(Xx 一 y) 十 tx y),x 一 一 1.. = 


coords 一 Spherical |，t 一 一 4. . 4) ; 


三 3.3333 


) 





【 例 65】〗 用 顶 数 图 形 作 动画 背景 (图 6-99 ,6-100) 。 

> fg : 王 animate(plot3d,|sin(xx yxt),x 一 一 Pi.. Pi,y 一 一 Pi.. Pij,t 王 一 1.. 
1 ): 
bg : 一 plot3d(x 一 y,x 一 一 Pi. . Pi,y 王 一 Pil.. Pi) : displav(Cfg,bgy) ; 


大.173000 





图 6-99 


> gl : 一 animate(plot3d,| cos(tx* xX) x Sin(t x y),Xx 一 一 Pi.. 2 * Pi,y 一 一 Pi.. 2 
X 了 1 | ，t 王 1.。. 2) ， 
g2 : 一 plot3d(1. 3"xx sin(y) ,Xx 一 一 ]. .2x* 了 Pi,y 一 0.. Pi,coords 一 spherlcal) : 
g3 : 一 plot3d(binomilal,0. .5,0. .5): display(gl,g2,g3); 
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大].2417 
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0.4.2 三 维 动画 命令 (anlimate3d ) 


在 maple 的 以 前 版 本 中 ,animate3d 命令 被 专门 用 来 显示 三 维 动画 ,现在 其 功能 
已 被 animate 所 涵盖 。 在 上 一 节 中 ,我 们 已 经 给 出 了 用 animate 和 plot3d 命令 演示 
三 维 动画 的 例 于 。 为 此 ,用 户 只 需 掌握 animate 命令 的 各 种 用 法 即 可 。 对 animate3d 
的 用 法 ,我 们 下 面 仅 举 两 例 。 在 使 用 animate3d 命令 前 ,我 们 需要 调用 函数 包 plots。 


【 例 66】〗】 直角 坐标 系 下 三 维 动画 。 
> anlimate3d(x SIn(XXYy 十 t/2x 王 一 Pi . Pi,y 一 一 4. ,4t 王 一 22Pi ， 
全 汪汪 计生 
竹 出 略 ,与 例 61 有 何不 同 ? 
【 例 67】 球 坐 标 系 下 三 维 动画 。 
5 aninnafte3d(tcos(t 呈 XSD YX 一 Pi Piy 一 一 到 ,Et 2 


cojor 一 coSCXx y) ,coords 一 Spherical) ; 


输出 略 ,与 例 63 有 何不 同 ? 
6. 4.3 二 维 函 数 轨迹 命令 (animatecurve) 


animatecurve 生成 随 目 变量 变化 的 曲线 轨迹 , 它 的 一 般 用 法 为 : 
animatecurve( 函 数 ,范围 ,选项 ) 
animatecurve 男 数 在 plots 上 数 包 中 ,使 用 前 要 先 调 出 plots 困 数 包 。 


【 例 68】 显示 极 坐标 下 点 的 轨迹 (图 6-101) 。 
> with (plots ) : 
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> anltmatecurve(X,X 一 0.. 8 * Pi,coords 王 polar,numpoints 一 100) ; 





【 例 69】 同时 显示 两 个 函数 点 的 轨迹 (图 6-102)。 


> anlimatecutrve(C{fcosysin}, 一 Pi . Pi) ; 





图 6-102 


VD>0 


仙 
9 挟 、 


【 例 70】 显示 函数 Ar>) -| 在 L 一 2,2j 点 的 轨迹 (图 6-103) 。 


> anlmatecurve(X-> Plecewlse(X> 0,Sqrt(X)，x 2) 一 2. .2); 
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区 例 7] 了】 考虑 复 平 面 上 的 迭代 zkH 一 鸡 十 a。 绘 制 其 Julia 集 Ja) 一 (人 z: | 鸡 
< co yYx* 作 图 6-104) 与 Mandelbrot 集 M(z) 一 {a: | 凤 | 二 co,V (图 6-105) 
议定 最 大 迭代 次 数 六 ,复数 模 长 上 界 M。 对 给 定 z 或 a, 若 存在 0 过 & 雪 和 使 得 
志 | 二 M, 我 们 则 对 点 或 < 用 灰 度 等 级 盖 一 & 来 显示 ;否则 用 灰 度 等 级 0 来 显示 。 
> :一 proc(ay zy myn) 
local kK,x; X: 一 eval{f(Cz) ; 
for KE from 0 to n 一 1 while abs(x)< 一 m do x: 一 x2 十 a end do; 
return n 一 上 
end proc; 
> Julia : 一 (x,y)-> 划 (一 1. 25,x 十 yx 工 ,100,20) ， 
plotsL densityplot ](Julia, 一 2.. 2, 一 2.. 2,grid 王 [100,100]， 


axes 一 boxed,style 王 patchnogrid ) ; 





Julia 集 
60-104 
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> Mandelbrot : 一 (x,y)->{fCx 十 yxI,0.100,20) ; 
plotsLdensityplot](Mandelbrot ,一 2. 5. . 1.5, 一 2.. 2,grid 一 [100， 100 ,1， 
axes 一 boxed,style 王 patchnogrid ) ; 





mm 一 0 ] 
Mandelbrot 集 


图 6-105 


1]. 作出 函数 的 图 像 。 

(1) y(z) 王 1 十 sinz 一 忆 ,zzEl| 一 30,30 
CCPJeeCeTDX 一 2 二 2020 | 
(3) y(Cz) 王 Sin(CZz 十 cos(Z 十 sin(Cz))),zE| 一 10,10 

2. 同时 作出 





《一 
(1) y(Cz) 一 2 二 2 100 ,100 | 
(2 y(z) 一 世 ET[ 一 90 ,90 | 
3. 画 出 参数 曲线 。 
(TD xz 一 人 yy 一 人 exE[ 一 6,6] 


(2) Z 一 CCcos2l,y 一 Ccos3t,iEG | 一 T,T | 
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(3 ) xz 一 tlnty 一 型 vE[0,6r] 


一 CosO 十 OSIinb 
(4) 圆 的 渐 开 线 | “0O<b<4x 
ys 一 SInO 一 0cosb 
4. 画 出 三 维 图 形 。 
CD se 3 


(2 ) -一 并 一 沁 一 10< zys< 10 


本 3 
(3) > 一 Sin(Z 十 cosy) ,一 6 三 zy 委 6 
5 目 取 色 彩 , 用 极 坐 标 画 玫瑰 线 。 

(1]) 三 办 玫 瑰 线 0 二 Sin30,0< 和 0O<:4x 
(2) 八 准 玫 瑰 线 o 一 Sin40,0<<O 坟 4 


(3) o=sin 此 ,0<O<4x 


3 
6. 目 定 0 范围 ,用 极 坐 标 画 一 条 花 o 一 3sin0 十 3. 5cos(100)cos0。 
7. 作出 函数 zz 一 sin( 刀 要) 一 cos( 关 ) 一 4 和 zyS4 的 密度 图 和 等 值 线 图 。 
8 目 取 cp,c， 男 星人 攻 证 


(1) 单 叶 双 曲 面 泡 二 


术 


Z 一 2cosh 二 cosg 
0 生 上 委 3 
y 一 2cosh sing O<O<<4r 


一 放 一 二 二 1。 


1]1. 男 出 球面 性 十 和 十 一 9 与 锥 面 xz 一 V 习 十 网 所 国立 体 及 其 表面 。 
12. 画 出 两 球面 三 十 和 十 呈 二 9 与 妆 十 交 十 (xz 一 3 六 一 9 所 围 立 体 及 其 表面 。 


10. 画 出 锥 面世 
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.1 流程 控制 


在 Maple 中 主要 有 两 种 类 型 的 流程 控制 语句 :条 件 语句 和 循环 语句 。 
1. 条 件 语 句 (证 语句 ) 
放 语 句 的 一 般 形 式 为 : 
人 Me 








其 中 lf 条 件 then 语句 序 衬 列 s 和 eelse 语句 序 闻 列 " 均 可 以 省 略 ， 而 且 * 条 件 * 必 须 为 光 
和 和 二 过 司令 站 人 光一 ed 和 





当 * 条 件 " 取 值 为 true 时 返回 ， :表达 式 1 的 值 ， 当 “条 件 * 取 值 为 时 ,返回 
“表达 式 2 的 仁 。 由 于 让 为 Maple 的 保留 字 , 操 作 符 让 必须 被 夹 在 两 个 反 引 号 当中 
来 使 用 。Maple 11 中 与 直 类 似 的 保留 字 还 有 :and,done,implies,intersect,minus， 


mod,not,ory,qult,stop,subset,union, xor 等 。 


电 5 区 G (= Bo) 
【 例 1】 分 段 连 续 图 数 FGz) 王 1 妆 ， 无 EL0i1 
2 一 5 让 所 十 2) 


> :一 procCX) 
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 x<0 then 0 elif x<l then x2 else 2xx 一 ] end i 
end PDTroc ; 
或 者 ,更 简单 地 ， 
> 二 一 > 让 (xz<0,0， 证 (K<1 2,2XxX 一 1)7， 
又 或 者 ,使 用 piecewise 困 数 ， 


> 于 : 一 X> piecewise(x<0,0,x< 一 1,x2,2xX 一 1); 


2.。 循环 语句 (for. . while. . do 语句 ) 


for. . while. . do 语句 的 一 般 形 式 为 : 





均 可 以 省 略 ， “ 初 值 * 和 * 步 长 "的 缺 省 值 都 是 1 ， “ 终 值 "的 铅 省 值 是 Infinity， < 条件” 的 
缺 省 值 是 true, 而 且 " 条 件 ” 必 须 为 逻辑 型 表达 式 。 


【 例 2〗】 今 有 物 不 知 其 数 ,三 三 数 之 剩 二 ,五 五 数 之 剩 三 ,七 七 数 之 剩 二 , 问 物 
几何 ? 
> for xfrom 2 by7 do 
ff xmod 3 王 2 and x mod 5 王 3 then print(x); break end if 
end do ; 
03 
本 例 中 , 当 第 一 个 满足 条 件 的 正 整 数 被 发 现 后 ,我们 使 用 了 break 语句 来 退出 循 
环 体 。 否 则 ,程序 将 无 限 循环 下 去 ,输出 所 有 解 。 如 果 我 们 希望 跳 过 本 次 循环 中 的 剩 
下 场 句 而 继续 下 一 轮 循环 的 话 , 则 可 以 使 用 next 语句 。 例 如 : 
sir 
上 Xx 一 3 then next end 1f; 
上 x 一 6 then break end if; 
PITInt(X) 
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end do ; 


HT 上 盖 


&7 


【 例 3 用 Newton 运 代 法 re 王位 一 7 求 方程 几 z) 一 ee -2 一 0 在 


xzo 一 附近 的 根 , 百 到 | x 一 ze il < 10”。 
> X 机 


whie abs(y)> 一 le 一 9 do 

X : 一 X 一 yj y : 一 epGO 一 21CexpGOO 一 1 
end do : 
Xj 


1. 146193221 
【 例 4】〗 求 数据 表 的 均值 和 方 老 。 


>f{f: 王 proc(a) 
local sl1,s2 ,Xi; 
n : 一 noOps(a)y Sl1 : 二 0 S2 : 一 0; 
for xinadosl :一 S1 十 x; s2 : 一 S2 十 X2 end doi; 


if n>oO then 

printf( "mean 一 0f，variance 一 只 和,sl1/nysqrt(s2 一 si2]n) ) 
end 过 
end proc: 


mean 二 2. 000000 ，variance 一 2. 23060008 


【 例 5 了 显示 连 分 陈 。 
>X: 一 al5l:{forifrom5by 一 1toldox: 三 ali 一 1 十 1/xend do:， xi 


Cn 十 
(1 十 
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【 例 6〗】 用 二 重 循环 语句 输出 ， 阶 循环 怎 阵 A = | ”| 


人 几 策 二 间 而 Ci 








V 
= 
| 


A :一 Matrix(n): for iton do for j ton do 
xl modp(i 十 j 一 2,n) 十 1] end do end do，Ai; 


< 9 二 个 14 于 








请 
jw 和 
\ 委 

(na 
LE 


际 了 条 件 语 句 和 循环 语句 之 外 ,Maple 还 提供 了 一 些 具 有 特殊 用 途 的 命令 。 这 
些 预 定义 的 命令 大 大 减轻 了 我 们 的 编程 工作 量 , 提高 了 程序 的 运行 效果 和 可 读 性 。 


虽然 这 些 命令 中 的 一 部 分 已 经 在 前 面 各 章 中 有 所 和 氢 述 ,但 是 出 于 完整 性 我 们 仍然 将 
它们 罗列 于 此 。 


3. $ 操作 
$ 操作 符 的 用 途 是 通过 蔡 换 “表达 式 " 中 "* 变 元 ”的 值 来 构造 一 个 序列 。 其 用 


本 





六 


4. seq 语 
sedq 语 句 的 用 途 也 是 通过 替换 “表达 式 ” 中 “ 变 元 ?的 值 来 构造 一 个 序列 。 其 用 


18 填 号 计算 系统 Maple 教程 





“ 步 长 "的 缺 省 值 是 1, 可 省 略 ,指标 集 通常 为 一 个 数组 、 列 表 或 集合 。 例 如 : 
> Seq(Cx2 ，X 一 3..7，2) ; 


9 2255 49 
Seq02 XLS 7 

.95 二 9 
SSeqC2 王 碍 1357 |75 

9 .25，49 
egkoseY 2 

汪 人 


S$。select 语句 ,remove 语句 和 selectremove 语 


select 语 句 的 用 途 是 从 "表达 式 ” 中 选 出 使 “过 程 ? 为 真 值 的 运算 量 ; remove 语句 
用 途 是 从 “表达 式 " 中 选 出 使 过程 ?为 假 值 的 运算 量 ; selectremove 语句 的 用 途 是 
“表达 式 " 的 运算 量 分 成 两 部 分 ,一 部 分 使 “过 程 ? 为 真 值 , 另 一 部 分 使 “过 程 ? 为 假 


”A 





中 过程" 的 返回 值 必 须 是 逻辑 值 “ 参 数 序列 ”为 “过 程 > 的 第 2,3,… 个 参数 。 
如 : 
> lsmuljltiple : 一 proc(x,y : 一 2) mod(x,y) 一 0 end proc; 
> select(ismultiple,L6,5,4,3,2,1]，3); 
@， 局 
> remove(ismultiple，|6,5,4,3,2,1]，3); 
出 
> selectremove(1smultiple，{6,5,4,3,2,1)y); 
125 人 87 人 


> select(type，{lismultiple,sin(x)}》，procedure) ; 





Lismultiple | 
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3 Tecyek Da 次 区 二 下 本 2 


父 


6， map 语句 


sis 和 分 入 作 放 了 .航运 ES 要， | 





当选 项 7 为 正 整数 时 ， “参数 1 In， 站 参数) ， 1" 为“ 过程 的 前 和 1 个 参数 ， “人 参 
数 序列 为“ 过程? 的 第 2 十 1," 十 2,… 个 参数 。 当 "表达 式 " 的 类 型 为 rtable 时 ,选项 
evalhf 使 得 过程? 数值 地 作用 于 “表达 式 ? 的 各 个 运算 量 , 其 效 朱 相当 于 : 
evalhf(map( 过 程 , 表 达 式 ,参数 序列 ) ) ; 
选项 inplace 使 得 “表达 式 ” 的 值 同 时 被 更 新 ,其 效果 相当 于 : 
表达 式 : = map( 过 程 ,表达 式 , 参 数 序列 ) 。 
当 雪 达 是 rtable 时 ,选项 evalhf 和 inplace 则 不 起 作用 。 例 如 : 
ab 22121235 


1 


汪汪 
3 
> unassign(f); mapl 3](f,xyy,A,z); 
下 
下 了 
> mapl evalhf j(sqrt,A) ; 
1. 41421356237309515 
1. 73205080756887720 2 | 
> mapl inplace |(f,A,x); 


> map(Csqrt,A); 


ss 天 (25 | 
了 32 天 (可 ) 
二 
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是 玉 胡 2 交 ) | 
站 


7。zip 语句 


zip 语句 的 用 途 是 将 "过 程 ” 作 用 于 “列表 1 和 ”列表 2 的 相应 元 素 ,由 此 产生 一 
4 Et 


2 Zip 人 二 vi 阳 ， 列 对 - 1 诈 表 = 到 2 , 缺 0 省 值 ) 0 
其 中 " 列 表 ] 1* 和 "列表 2" 也 可 以 是 数组 、 问 量 或 者 矩阵 但 不 可 以 是 集合 ， “ 缺 省 仁 被 
用 来 涂 加 在 列表 后 面 使 得 两 个 列表 有 着 同样 的 大 小 ; 当 ”“ 缺 省 值 ? 被 省 略 时 ,zip 语句 
产生 的 列表 的 大 小 为 "列表 1 和 "列表 2? 大 小 的 最 小 值 。 例 如 : 

二 InatrixC2v3, 11 12 3 ,4556]]7， 


记 沪 风 
Q :一 
4 5 0 


trix3 2 Do [区 zw 


7 
人 
之 仙 
六 册 DUCXE YXTYayb) 


1 十 2 十 2 
Is 5 
> 玖 BCCX YY) XywabyNAND 
到 0 3 十 NSAN 
和 十 导 中 Ca | 
NAN 二 > NAN 二 zz 2NAN 


8. add 语句 和 mul 语句 


add 博 句 的 用 途 是 对 一 个 序列 数值 求 和 ; mnul 语句 的 用 途 是 对 一 个 序列 数值 乘 
积 。 它 们 的 用 法 有 : 





mul( 表 达 式 ， .要 元 
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例如 : 
> add(x-3，x 一 1..3); 


SUdC3，X 王 人 ,23 


本 


dxe3， 攻 (1 2， 3》 
30 


9. sum 语句 和 product 语 


和 


sum 语句 的 用 途 是 对 一 个 序列 符号 求 和 ;product 语句 的 用 途 是 对 一 个 序列 符 
号 乘积 。 它 们 的 用 法 有 : 





> SumCxny，n) ; 


和 
下 
sum(f(x),x) 的 返回 值 为 某 个 gs(Cz) 满 足 对 任意 过 都 有 g(Cz 十 1) TB 
> SumGCx(2n 十 1)/(2n 十 1)1，n 一 0. . infinity) ; 


sinh(>z) 





> SumCxn，n 一 10. . 5 ) ; 


一 克 一 并 一 二 一 总 


当 入 2 时 ,sum(f(x),x 一 m..n) 的 返回 值 为 FCz) 十 … 十 FCz); 当 力 王 丈 十 1 
寺 ,sum(f(x),x 一 m. .pn) 的 返回 值 为 0; 当 mm 三 xz 十 2 时 ,sum(f(x) ,x 一 m..n) 的 返回 
值 为 一 (Fn 十 1) 十 … 十 Fom 一 1))。 

> Sum(x，xXx 一 人 ootOf(x2 十 2x 十 1) ); 


sum(f(x) ,x 一 RootOf(Cg)) 的 返回 值 为 》\ FCz) 。 


5 gz) 一 0 j 
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> SumCxn，n 一 2); 


父 


sum(f{f(x) ,x 一 表达 式 ) 的 返回 值 为 F( 表 达 式 )。 
10. Sum 语句 和 Product 语 


Sum 语句 和 Product 语句 分 别 是 sum 语句 和 product 语句 的 惰性 形式 ,用 法 


. 吉 程 (Procedure) 


Maple 过 程 由 一 系列 Maple 语句 组 成 ,相当 于 各 种 编程 语言 中 的 子 程序 。 一 个 
完整 的 Maple 过 程 通 党 具有 以 下 形 





各 一 个 变量 没有 明确 声明 为 全 局 变量 , 则 为 局 部 变量 。 过 程 的 返回 值 为 所 执行 
后 一 条 语句 的 返回 值 。 

【 例 7】〗】 Hello,World! 

> p :一 proc() printf( "Helljo，World!”) end proc; 


为 了 增加 程序 的 可 读 性 ,我 们 可 以 用 对 齐 ( 插 和 空格) 和 分 行 (Shift 十 Enter) 来 








> pp: 一 proc() 
printf( ”Helljo，World! 
end proc; 


上 述 语 句 的 结果 均 为 Maple 过 程 训 的 定义 域名 
: 一 proc() print{f( “Hello，World!”) end proc 


我 们 可 以 使 用 print 语句 或 eval 语句 来 查看 过 程 的 定义 语句 。 运 行 过 程 娟 时， 
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键 人 
> PC ; 
得 到 绪 宁 
Hejloe，Waorld1 
右 我 们 省 略 了 户 后 面 的 (), 则 结果 为 
> 了 P; 
已 


【 例 8】 计算 一 个 向 量 v 的 L， 范 数 lvl = 一 (2 1w12)“。 
> pnorm : 一 procCv，p : 一 2) 
local n ,sxX; 
description “Compute the Lp norm of a vector 
n : 一 nops(Cv); in 王 0 then return 0 end 十; 
ft p 一 0 then 并 return the geometrlc mean 
s: 一 1; forxinvdos: 一 sxabs(x) end do; return S (1]1/n) 
el p 一 Infinlity then 
s: 一 0; forxinvdos: 王 max(s,abs(Cx)) end do; return S 
else 
s :一 0; forxinvdos: 一 s 十 abs(x)”p end do; return S (17Pp) 
end 让 
end DrOC; 
使 用 该 过 程 时 ,例如 : 
> pnorm(L1,2,3,4| ,1); 
10 
>a: 一 rtable(1..2,1..2,||1,2| ,| 3,4|); pnorm(Cay) ; 


本 


vv30 
程序 的 第 1 行 定义 了 过 程 的 名 称 pnorm, 输 入 参数 和 了 ,并 设 训 的 缺 省 值 为 2。 
为 了 程序 的 通用 性 ,我们 没有 明确 输入 参数 的 类 型 。 如 于 我 们 限制 " 为 数值 型 列表 ， 
记 为 整数 , 则 这 一 行 可 重 与 为 
pnorm : 一 proc(Cv: :list(Cnumeric)yp::Iinteger : 一 和) 。 
程序 的 第 2 行 定 义 了 过 程 所 用 到 的 3 个 局 部 变量 as,Zz。 程 序 的 第 3 行为 过 程 
的 描述 语句 ,可 以 通过 Describe 博 句 来 查看 。 


> Descrlbe(CpPnorm ) ; 
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村 Compute the I， p norm of a _ vector 

pnormktv， 访 :一 2) 

程序 的 第 4 一 11 行为 过 程 的 具体 执行 语句 。 最 后 ,过 程 以 end proc 结束 。 在 程 
序 的 第 5 行 中 ,# 及 其 后 面 的 部 分 为 注释 ,对 程序 不 起 任何 作用 。 

程序 的 第 4,6,8,10 行 中 ,我 们 分 别 使 用 了 return 语句 来 提前 结束 程序 的 运行 
并 返回 计算 结果 


【 例 9】 建立 以 内 的 素数 表 。 
> Prtime Table : 王 ProcGCnl: :Integer) 
local 1,] ,my,p; 
description “List all prlimes no more than n ; 
fn<<2 then return NULL end 这; 
P : 一 < 
tor mm from 3 by 2 ton do 
] :一 1; KK: 一 trunc(sqrtCmy) ); 
for 1 In p do 
计 之 kthen break elf m mod 1 王 0 then :一 0 break end 1 
end do ; 
一] thenp: 一 pmend 过 
end do ; 
PP 
end PTrOC ; 


在 编写 Maple 过 程 时 ,需要 注意 的 是 : 

”输入 参数 可 以 为 空 ,但 proc 后 的 () 不 可 省。 
”输入 参 数 为 只 读 类 型 ,通过 值 传递 ,不 可 被 修改 。 
” 寿 欲 修改 过 程 外 部 变量 的 全, 则 必须 在 过 程 内 声明 此 变量 为 全 局 变量 。 
”尽管 任何 未 经 声明 的 变量 午 软 认为 局 部 变量 ,最 好 还 是 明确 声明 。 
。 局 部 变量 与 过 程 外 的 其 他 任何 同名 变量 无 关 。 
”避免 使 用 未 赋 初 值 的 局 部 变量 。 

”除了 注释 之 外 ， 不 要 使 用 宁 文 子 待 (以 及 生 反 待 、 文件 名 .月 录 等 )。 
例如 : 
>p: 一 broc() a: 一 1; abend proc; 
Warning ais Impliclitjy deciared ljocal to Procedure `D 

旋 :一 proc() ljocal cy a :三 ]1; w 十 P end proc 

在 过 程 训 中 ,a。 被 认为 是 一 个 局 部 变量 ,但 2 却 被 认为 是 一 个 人 符 忆 而 不 是 一 个 
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变量 。 
区 
和 一 关 | 
L 人 
和 
3 


【 例 10】 求 任 意 个 多 项 式 的 最 大 公 因 式 。 
> pgcd : 一 proc() 
ljocal 1, x; 
tf nargs 王 0 then return end if; 
x: 一 args| ] |; 
for 1 from 2 to nargs do 
x : 一 gcd(xyargs| ij]) 
end do ; 
X 
end Proc ; 
企 Maple 中 已 经 有 了 计算 两 个 多 项 式 的 最 大 公 因 式 的 函数 gcd(a,p) ,我 们 只 需 
将 其 推广 到 任意 个 参数 形式 。 由 于 参数 的 个 数 不 确 定 , 过 程 没 有 设 定 参 数 ,但 是 我 们 
可 以 在 程序 中 通过 特殊 变量 args 和 nargs 来 获取 过 程 的 参数 列表 和 过 程 的 参数 个 
数 。 
除了 args 和 nargs 之 外 ,在 Maple 过 程 中 我 们 还 可 以 使 用 特殊 变量 procname， 
passed，params，options，rest，npassed，nparams， _noptions，nrest，nresults， 
其 中 procname 为 过 程 的 名 称 。 例 如 : 
> : 三 proc() Largs，nargs，procname] end proc; 
> 长 (X 十 1)“2 一 222 一 2 区 0 
LGz 十 1)2 一 妇 一 2zyzzocd 力 5 了 | 
关于 特殊 变量 的 具体 用 法 ,请 参阅 Maple 的 联机 帮助 .用户 手册 以 及 相关 的 书 
精 质 料 。 除 了 以 上 标准 的 过 程 定 义 语 句 之 外 ,Maple 还 提供 一 些 简便 的 方法 。 


1. -> 操作 符 


Maple 中 的 -> 操作 符 是 一 种 特殊 的 过 程 , 它 具有 形式 , 
变量 列表 -> 结果， 





并 且 等 价 于 语句 
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proc( 变 量 列表 ) option operator,arrow; 结果 end proc 
例如 
> 一 7 
人 
注意 :由 于 -> ”的 优先 级 要 高 于 “,” 的 优先 级 ,1,z,z2 一 定 要 在 () 中 。 
>g :一 (ab) -> proc(X) Sin(CaxX 十 b) end proc( ) ; 
8g : 一 (ab)-> proc(CZ) Sin(CaZz 十 p) end proc 
3 jw 信 1 


LAN 课 和 AN 
NA NA 


2.。 unapply 语句 


2 : 放生 SR 站 让 人 人 和 肖 人 站 
7 和 汪汪 光 人 仙人 信人 机 仙 生 入 八仙 你 攻 仙 本 和 
2 2 二 放 滑 5 2 交 5 人 
区 澡 本 人 2 个 六 ， 必 7 六 局 We 一 6 二 

区 汪 站 2 2 和 7 各 3 

本 0 WA 上 LA 一 2 

"区 人 0 人 人 区 
吕 》 -了 4 ee 2 





一 个 过 程 
变量 列表 -> 表达 式 


例如 : 
>f{f: 一 unapply(Cx2,x); 
和 


unapply(|fCx) ,fCy) |] ,xy); 
有 二 (yy) 站 [二 25M2 | 


车， 


>a: 一 1];T: 王 unapply(Cx 十 ay,x);g :一 X-> X 十 a; 
Qa: 一 ] 
了 :一 人 > 十 ] 
5 :一 大 > 并 十 
>a: 一 2; fx); gCX) ; 


光 十 之 
-> 操作 符 和 unapply 语句 的 效果 并 不 完全 相同 。 
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【人 例 11】 给 定 任 意 多 个 点 (zw) ,构造 Lagrange 插值 多 项 式 Ar) 一 
2 (> 了 > 二 过) 
> lnterpolation : 一 bfroc(Cp) 
local g ,1,], ny, 和; 
ni 一 nopSsCp); 
nn<2 then error“JInsuffticlent polints1 end 1; 
try 
g :一 add (mul((Cx 一 plLj,1 DOPpLb1 | 一 pU, 1 )， 王 1..1 一 1) 
x* mul((x 一 blj, 1 Apli1l 一 pi 1 )， 一 ii 十 1..n) 
< pl ji,2|，i 一 1..n)， 
return unapply(Csort(Csimplify(Cg)) ,xy) 
catch : 
print(" 工 he x-coordinate of polints Inust be distinct。 ) ; 
return unknown 
end try 
end Proc ; 
在 程序 的 第 4 行 中 ,error 语句 的 作用 是 显示 错误 信息 并 立即 中 电 程 序 的 运行 。 
程序 的 第 9 行 返回 一 个 过 程 。 注 意 : 此 处 不 可 以 用 语句 
X -> Sort(Csimplfy(Cgy) ) 
来 代替 。 第 5 行 到 第 13 行 的 try…catch 语句 块 被 用 来 处 理 可 能 出 现 的 晓 化 情形 。 
详 见 7. 6 节 。 
>Tf: 一 interpolation({| 1,1j ,2,3| ,| 3,5j] ,| 4,3] ,| 5,1|)) 


太一 工 一 二 姓 一 一 4 十 学 蒂 一 227 十 11 


> g :一 interpolation(( 1 ,HL3,2] ,5, 3 3,4] ,1,5j)) 
“The xcoordinate of points must be distinct. ” 
g :一 Unknown 
> plot(fCt) t 一 1. .5D); 
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7.3 模块 (Module) 


Maple 模块 是 最 高 级 的 Maple 表达 式 , 相 当 于 面 回 对 象 的 编程 语言 中 的 类 
(Class) 。Maple 模块 的 定义 与 Maple 过 程 的 定义 非常 相似 ,都 是 由 一 系列 Maple 语 
人 句 组 成 , 通 各 具 有 以 下 形式 : 






人 让 
ov 让 0 人 人 已 
4 Re : 7 所 莹 际 / 瑟 油 5 浴 尺 人 相 冯 : 双 迷 :, 必 人 
0 史 


简单 起 见 ， 我 们 可 以 认为 Was 借 块 提供 了 _- 批 预 夺 先 定义 好 了 的 变量 ， 这 些 被 
导出 (通过 模块 中 的 export 语句 ) 的 变量 可 以 被 模块 外 部 的 Maple 语句 所 使 用 ,它们 
可 以 是 符号 .数据 .对 象 , 也 可 以 是 Maple 过 程 或 Maple 模块 ,甚至 是 该 模块 自己 。 
当 模 块 被 生成 的 时 候 , 模 块 中 的 语句 被 依次 执行 。 


【 例 12】 一 个 二 阶 方 阵 的 模块 。 
>M: 王 module() 
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exbort Print,SetData, Det ,inverse, Rank, Trace Transpose; 
description A sample modujle of 2-by-2 matrlx ; 
local ay a: 一 array( 10,01,10,01 井 matrix storage 
Print : 和 Droc() 
description “Print the matrix ; 
print(ay) 
end proc; 
SetData : 一 ProcGCb: :lst) 
description “Set values for the matrlx ; 
a: 一 array(]..2,1..2,b) 
end PITOC ; 
Det : 一 Proc( ) 
descripttion ”Determinant 
al 1,1]x*al2,2j| 一 al 1,2]x*al2,1| 
end proc; 
JInverse : 一 PrOc() 
desctription “Inverse matrlx ; 
local d, d: 一 al 1,.11xal2,21 一 al 1,21<al2,1|; 
if qd 一 0 then error "Matrix 1s singular1 end 1 
array([[ af 2,2]/d, 一 1,2]/dj,[ 一 aL2,1]/d,aL2.2]/djJ) 
end Proc ; 
Rank : 一 proc() 
description “Matrix rank ; 
ial 1,1]x*al2,2] 一 al 1,2j]x*al2,1j<>0then 2 
elif al 1 ,1 =0 andal 1,2] = 一 0andal2,1 王 0 andalL2,2|= 王 0 then 0 
else 1] end 寺 
end PrOC ; 
Trace : 一 Droc( ) 


desceription “Sum of the diagonal elements ; 


al 1 9 1 | 十 al 2,2 | 
end Proc ; 
Transpose : 一 Proc( )j 


qdqescription “Transpose matrIx 


array(f[af[li,1j,al2,1],LaLl,2] .al2,2 1 ) 


end PITOC ; 
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end module; 


本 Maple 过 程 的 定义 语句 不 同 ,上 述 语 句 的 输出 结果 为 : 

M : 王 module() description“A sample module of 2-by-2 matrix”，local wa ; 
export 上 rint，>etData，Det，Inverse，Rank，Trace，Transpose; end module 

其 中 不 含有 任何 具体 的 执行 语句 ,而 只 是 对 模块 结构 的 描述 。 此 模块 有 一 个 局 
部 变量 x 用 来 储存 矩阵 的 元 素 , 并 且 提 供 了 7 个 导出 变量 Print, SetData, Det， 
Inverse, 人 ank, Trace, Transpose 让 用 户 使 用 。 用 户 可 通过 Describe 语句 或 exports 
二 句 来 查看 模块 所 导出 的 变量 名 称 , 并 且 通 过 : 一 操作 符 来 引用 模块 的 导出 变量 。 


二 









> Describe(CMD) ; 
# A sample module of 2-by-2 matrix 
module NM : 

井 _ Print the matrix 

PE 

井 Set values for the matrix 

wetData(Co: :jist) 

井 _ Determlinant 

Det( ) 

井 Inverse matrlX 

jnverse( ) 

井 Matrix rank 

Rank() 

井 Sum of the diagonal elements 

Trace( ) 

井 Transpose matrixX 

Transpose( ) 
> exports(IM) ; 

Frint, setData, Det, Inverse,Rank ,Trace, Transpose 
使 用 模块 M 的 时 候 ,首先 ,我 们 对 和 矩阵 赋值 
:一 SetpDatak| 112 35611 7 Ms 一 了 Print 多 广 
1 泥 
9 


然后 ,我 们 可 以 计算 矩阵 的 行列 式 、 逆 矩阵 、 秩 . 迹 . 转 置 矩阵 ， 
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> M :一 Det(y) ; 


> M :一 Inverse( ) ; 


Error，(in Inverse) Matrlix 1s singujar1 


> M : 一 Rank() ; 
> M :一 Trace() ; 


> M :一 Transpose( ) ; 


四 


在 某 些 情况 下 ,我 们 可 以 在 定义 模块 的 同时 给 模块 起 一 个 名 字 , 这 种 模块 称 为 具 
名 模块 Cnamed module) 。 例 如 :我 们 可 以 将 例 10 的 第 一 行 改 为 
> module MATRIX() 
这 时 ,M : 一 与 MATRIX : 一 具有 相同 的 效果 。 它 们 的 差别 在 于 :具名 模块 的 变 
量 名 MATRIX 受到 保护 ,从 而 无 法 被 赋值 ,而 普通 模块 的 变量 名 可 被 反复 重新 赋值 。 
> module ml() export el ， end moduje; 
module 7z1() export ely end module 
> ml : 一 module () export e2; end module; 
Frror，attempting to assign to ml which is protected 
与 constructor 和 destructor 相对 应 ,Maple 模块 中 的 特殊 变量 ModuleLoad 和 
ModuleUnload 起 着 类 似 的 作用 。 模 块 中 的 特殊 变量 还 有 ModulePrint, Module 
Apply 和 thismodule。ModuleLoad,ModuleUnload,ModulePrint 可 以 被 定义 为 局 部 
变量 或 导出 变量 , ModuleApply 必须 被 定义 为 导出 变量 ,thismodule 则 代表 该 模块 
自身 。 例 如 : 
>im :一 Imodule() 
export e, ModuljeApply; 
local ModuleLoad ,ModuleUnload ; 
el: 一 thismodule; 
ModuleApply : 三 proc() max(Cargs) end proc; 
ModuleLoad : 一 proc() print("Load Modulje\n ) end Proc; 
ModuleUnload : 王 proc() print("Unload Module\n ) end proc; 
end moduje; _ 
11. 一 module() local ModuleLoad，ModuleUnload; export e，ModuleApply: 


end moduje 
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区 5 竹 SS 


TSRCS 过) 


7.4 函数 包 (Package) 


Mapjle 胃 数 包 是 一 些 程序 的 集合 。 这 些 程序 通常 是 为 了 解决 某 类 问题 而 被 放 在 
一 起 的 。 例 如 : Maple 11 就 提供 了 包括 algcurves，combinat，CurveFitting， 
DEFETools，finance，geom3d，geometry，group，IntegrationTools，LinearAlgebra， 
Loglc,， Maplets，MatrixPolynomilalAlgebra, numapprox，numtheory，Optimization， 
PDETIools,plots,PolynomlalTools,RandomTools,RootFinding,SNAP,SolveTools， 
statlstlics, Student,tensor, VectorCalculus 等 在 内 的 约 100 个 图 数 包 给 用 户 使 用 。 
除了 一 些 陈 旧 的 国 数 包 之 外 , 绝 大 多 数 的 函数 包 都 是 以 模块 的 形式 定义 。 因 此 ,我们 
可 以 简单 地 认为 一 个 困 数 包 就 是 一 个 特殊 的 模块 。 我 们 只 需 在 模块 的 定义 语句 里 面 
包 售 option package; 或 者 将 一 个 现 有 的 模块 通过 convert 语句 转化 为 函数 包 。 然 后 
通过 savelib } 和 汪 人 人 肖 地 





个 程序 库 位 于 系统 全 局 变量 ii 或 TPR e 所 包 售 的 路 径 中 ， 通 党 前 是 
一 个 类 ， tn 文件 和 一 个 *.ind 文件 (maple. lib,maple. ind) 或 是 一 个 单一 的 *. mla 
文件 (maple. mla) 。 在 不 同 版 本 的 Mapljle 中 , 库 文 件 的 格式 也 不 尽 相 同 。 
【 例 13】 一 个 关于 二 阶 方 阵 的 函数 包 。 
> module M() 
export 上 rint, setData, Det, Inverse,R 人 Rank, Trace, Transpose; 
locajl ai; 
optlon package; 
descrlption A sample package of 2-by-2 matrix"”; 
ce # 语句 同 例 6 
end moduje; 
> savelib( M ); 
Error，cannot open archive、C:\Program FilesS\Maple 117lib，for writing. 


当 昌 数 包 被 成 功 地 写 人 程序 库 ,savelib 语句 的 返回 值 为 空 (NULL) ;和 否则, 我们 
将 会 得 到 错误 信息 。 本 例 中 ,我 们 没有 可 供 写 入 的 程序 库 ,于 是 我 们 需要 新 建 一 个 程 


第 7 章 ，Maple 程 序 设计 203 


序 库 ,在 更 新 了 变量 savelibname 或 libname 之 后 ,再 将 图 数 包 存 人 程序 库 中 。 
> march( create 光 c:N\N\Program FilesS\\Maple 11\\lib\\myMaple. mla”) ; 
libname : 一 libname,“c:\\Program FilesS\\Maple 11NXNPNN\myMaple. mla2”; 
savelib(”M “ ) ; 
march 是 Maple 中 用 来 管理 库 文 件 的 语句 ， 3 
和 
从 此 以 后 ,只 要 程序 库 位 于 libname 所 包含 的 路 径 中 ， 我 们 都 可 以 不 邓 定 义 模块 
M 而 直接 使 用 M 的 导出 变量 。 其 效果 就 如 同 已 经 执行 了 模块 M 的 定义 语句 一 般 。 
此 处 M 被 定义 为 一 个 具名 模块 ,当然 也 可 以 被 定义 为 一 个 普通 模块 。 
有 的 时 候 , 我 们 和 布 望 省 去 "模块 名 : 一 变量 名 ?中 “模块 名 : 一 ,而 直接 引用 ”“ 变 
量 名 ”。with 语句 则 提供 了 这 样 一 种 方便 ,unwith 语句 则 可 以 撤销 with 语句 ,恢复 
到 正 浓 状态 。 


WPRO 





例如 : 

> with(M) ; 
| Det，Inverse，Print，Rank，SetData，Trace，Transpose | 

3 SetDatak|[ | 1 2 | | 3 和 | 17 


> JDet() ; 
> unwlth(CM ) ; 
> Det() ; 
Det( ) 


with 语句 和 unwith 语句 只 能 在 Maple 的 用 户 界面 下 使 用 ,而 不 可 以 出 现在 过 
程 或 模块 中 。 知 我 们 希望 在 过 程 或 模块 中 省 去 “模块 名 : 一 ”. 则 可 以 使 用 uses 语 何 
列 出 所 有 需 用 的 男 数 包 ,或 者 使 用 use 语句 。 


7.5 应 用 程序 (Maplet) 


Maplet 是 一 个 图 形 化 的 Maple 应 用 程序 , 它 可 以 拥有 窗口 .菜单 .按钮 ,工具 栏 、 
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文本 框 、 对 话 框 等 组 件 ,可 以 接受 用 户 的 鼠标 和 键盘 输入 ,并 且 可 以 将 计算 结果 以 加 
形 化 的 方式 输出 。Maplet 本 质 上 是 一 个 JavaApplet。 在 Maple 中 有 两 种 方法 可 以 
生成 一 个 Maplet 。 


1， 使 用 Maple 的 Maplets 函数 包 生 成 Maplet 


【 例 14】 Hello, Worldl! 


> use Maplets : 一 上 lements In 
h : 一 Maplet(| "Hello,World 人 ,Button("OK" ,Shutdown() ) |]) 

end use ; 

Mapjlets : 一 Display(Chy) 
六 :一 Maplets : 一 Elements : 一 com. maplesoft. maplets. elements. Mmapjlet 
("1locale" 一 "Chinese People s Republic of China. 936 "， 
“onstartup 一 ”Maplets_reference 72 ， 
Maplets : 一 Elements : 一 com. mmaplesoft. maplets. elements. MAction 
("reference" 王 ”Maplets_reference 67”， "run 一 "false”， 
Maplets : 一 上 Elements : 一 com. maplesoft. mapjlets. elements. MCommandShut- 


down( ) ) ， 


Maplets : 一 Eljements : 一 com. maplesoft. mapjlets. elements. MWindow 
("reference "一 ”Maplets _ reference 68 ， 

"lavout 一 ”Maplets_ reference 69 ， visible 一 true ， 

"titje 一 ”Maplet ， reslzable 一" true ， enabled 一 -true )， 


Mapjlets : 一 上 lements : 一 com. maplesoft. maplets. eljements. MBoxLayout 
(" reference 一 Maplets_reference 69 ， visibje 一 true ， 

"border 一 "false ， vertical 一 false ， inset 一 5 ， 

Mapjets : 一 下 jements : 一 com. mapjesoft. maplets. elements. MBoxLColumn 
(visible 一 "true ， "border 一 false ， spacing 一 5 ， 

“hscroi 一 never ， vsScrol 一" mever ， inset 一 "5 ， 


Maplets : 一 Elements : 一 com. maplcsoft. maplets. elements. MEBoxCell 


("value "一 ”Mapjlets_reference 70”， hscroll 三 never ”， 
"valign 一 ”center ， fl 一 none "， vsctoll 一 “never ， 

“halign 一 center )， 

Maplets : 一 Elements : 一 com. maplesoft. maplets. elements. MBoxCel] 
("value 一 ”Maplets_refterence 7Y1 ， hscroll 三 never ， 

”valign”" 一 "center"， “位 一 “none"， “VScrol] 一 never ， 


“halign 一 "center )))， 


第 7 章 Maple 程 序 设计 205 




















Mapljlets : 一 Elements : 一 com. maplesoft. maplets. elements. MLabel 

〈( reference "二 ”Maplets_reference_70" ，"caption" 一 "Hello， World! ”， 
Visible "一 "true"，"valign" 一 "center"，"halign" 一 "center" ， 

enabled "一 "true" ) ， 

Maplets : 一 上 lements : 一 com. maplesoft. maplets. elements. Mbutton 

( reference "二 ”Maplets_reference 71"，"caption" 一 "OK"， 

onclick" 一”Maplets_reference 67"，"visible" 一 "true"， 

valljgn "一 "center"，"halign" 一 "center"，"enabled" 一 "true" ) ， 

Mapjlets : 一 上 Elements : 一 com. maplesoft. maplets. elements. MAction 

( reference "一 ”Maplets_reference 72"，"run" 一 "false"， 








com. maplesoft. maplets. elements. 
MCLCommandRunWindow("window"” 王 ”Maplets_reference 68") )， 


Maplets : 一 Elements : 


moduje() export References，Expressions，Procedures， 


NumberOfVariables，SetGetLookUp; end module) 





7-3 





use 语句 使 我 们 省 去 了 长 长 的 “模块 名 : 一 ,程序 也 看 起 来 十 分 简洁 。 其 一 般 用 法 为 : 











例如 
>a: 一 1: usea 王 2 Inaend use; al; 
2 
] 
> use 十 一 ((ayb)->axb) in3 十 4enduse; 3 十 4; 
2 
7 


2. 利用 开发 工具 Maplet Builder 生成 Maplet 
我 们 可 以 在 Maple 的 菜单 项 “工具 -分析 助手 ”中 找到 Maplet 生成 器 (图 7-4) 。 
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利用 Maplet Builder ,我 们 可 以 设计 Maplet 的 布局 ,通过 鼠标 的 拖 放 将 左 侧 工 
具 栏 中 的 菜单 .按钮 、 文 本 框 等 Windows 元 素 添 加 到 Maplet 中 ,并 在 右 侧 的 属性 栏 
中 设置 各 元 素 的 属性 和 关联 的 程序 (图 7-5) 。 
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局 击 Maplet Buider 的 沫 单项 File-> Run 来 运行 Maplet( 图 7-6) 。 





.6 程序 调试 


Maple 提供 了 多 种 方式 来 方便 我 们 对 程序 进行 调试 。 我 们 既 可 以 在 编写 程序 的 
时 候 插 和 人 各 种 调试 语句 ,也 可 以 使 用 调试 工具 来 调试 正在 运行 的 程序 。 例 如 :假设 我 


们 在 例 2 中 忘记 了 使 用 break 语句 ， 
for x from 2 by 7 do 


{f xmod 3 一 2 and x mod 5 一 3 then print(x) end 这 
end do; 


程序 将 持续 运行 下 去 ,直至 系统 崩溃 。 这 时 我 们 可 以 点 击 工具 栏 中 的 图 标 罗 来 


中 断 程序 的 运行 ,或 者 点 击 图 标 幕 来 调试 程序 (图 7-7)。 当然 ,在 程序 暂停 之 前 我 们 
需要 等 符 很 长 一 段 时 间 , 这 时 程序 也 已 经 打印 出 了 几 万 行 结果 。 





1]1，Miint 


mint 征 Maple 的 一 个 语法 检查 工具 , 既 可 以 在 DOS/Linux 命令 行 下 使 用 
(mint) ,也 可 以 在 Windows 图 形 界面 下 使 用 (wmint) ,还 可 以 在 Maple 程序 中 使 用 
(mapjlemint 语句 ) 。mint 对 包含 Maple 源 程序 的 文本 文件 进行 语法 分 析 , 报 告 其 中 
可 能 的 错误 或 者 给 出 警告 信息 。mint 的 命令 行 用 法 为 ; 
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人 
0 5 和 


全 ge 计 2 ao es 
巡 光 2 3 2 二 你 
二 汪 忆 站 
中 5 名 到 
2 六 用 上 4 





>T: 王 proc(CX) 
1oeal 1 SS 
for 1 to x do 
s : 一 0; for ltoxdos: 王 S 十 lend do; t: 一 t 十 s; 
end do ; 
return S; 
t :一 0 
end proc; 
> maplemint(fy) ; 
This code ls unreachable: 
t: 一 0 
These parameters have the same name as constants : 
一 5 
These local variables have the same name as constants : 
| 
These local varliables were never Used: 
一 作 
These local variables were used before they were assligned a value; 
ft 


These varlables were used as the same loop varliable for nested loops: 
| 
2。Maple Debugger 
Maple Debugger 是 Maple 的 一 个 图 形 化 的 调试 工具 。 它 提供 一 个 窗口 ,我 们 可 
以 在 其 中 方便 地 输入 调试 命令 看 到 结果 ,而 不 必 担 心 源 程序 被 淹没 在 调试 信息 之 中 。 
Maple Debugger 窗口 (图 7-8) 平 时 并 不 出 现 , 只 有 当 程 序 运行 时 我 们 点 击 了 图 标 
区 ,程序 遇 到 了 上 断 点 (breakpoint) 监视 点 (watchpoint) ,或 者 我 们 执行 了 DEBUG 
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语句 的 时 候 才 会 出 现 。 


三 国 aple 了 ebuagger 


Next 


Step 
In To 
Uut 上 From 
Continue 
List 
Showstat 
Help 
Clear 
Return 
Quit 
Copy 





人 


窗口 中 的 12 个 调试 命令 按钮 的 作用 见 表 7-1。 


表 7-1 Maple Debugger 的 调试 命令 
执行 下 一 条 语句 。 如 果 该 语句 具 脆 套 结构 或 包含 子 程序 调用 , 则 
该 语句 被 作为 一 个 整体 来 执行 
执行 内 套 结构 或 子 程序 调用 中 的 下 一 条 语句 
执行 嵌 套 结构 (但 不 是 子 程序 调用 ) 中 的 下 一 条 语句 
继续 程序 运行 ,执行 完 当 前 语句 或 蔡 套 结构 
继续 程序 运行 ,直至 遇 到 新 的 断 点 .监视 点 
列 出 当前 过 程 及 当前 语句 
显示 所 有 相关 过 程 的 定义 语句 
显示 Maple Debugger 的 帮助 
清除 输出 窗口 的 所 有 内 容 
继续 程序 运行 ,从 当前 子 程序 中 返回 
结束 程序 调试 ,并 关闭 Maple Debugger 窗口 
将 输出 窗口 的 内 容 复制 到 当前 编程 区 
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3. 实时 稍 误 处 理 (try…catch 语句 ) 


由 于 实际 问题 的 复杂 性 ,我 们 无 法 保证 程序 在 任何 条 件 下 都 能 正确 地 运行 ,尤其 
是 当 程序 中 牵涉 到 用 户 输 网 络 连接 等 情形 的 时 候 。 我 们 希望 程序 在 错 
误 发 生 的 时 候 能 够 保存 计算 结 给 用 户 以 明确 的 错误 报告 ,然后 安全 地 结束 程序 的 

运行 。 这 时 ， 我 们 可 以 使 用 Er We 用- 下 全 和 和 肝 村民 


二 人 
e eatch 这 | 昌 : 语句 序 到 





其 中 “catch 字符 串 ， 河 句 序 列 和。 iefinally y 语句 序列 "都 可 以 被 省 略 。 程序 首先 运行 
tey 后 面 的 语 名 ,一旦 有 寻 课 受 生 则 蛮 停止 运行 try 后 二 的 其 他 证 向， 此 时 若 基 个 
错误 信息 与 "字符 串 ” 相 匹配 , 则 该 错误 被 清除 并 且 运 行 catch 后 面 的 语句 ;否则 , 错 
人 catch 后 面 的 语句 。 最 后 ,无 论 是 否 有 错误 发 生 ,无 论 错 误 
县 是 否 己 “字符 串 " 相 匹配 ,都 继续 运行 fnally 后 面 的 语句 。 若 "字符 串 ” 被 省 略 ， 
则 认为 与 任何 错误 信息 都 匹配。 例如 
> :一 proc(Cxyy) 
loca] z; 
try Z : 一 X/Vy 
catch “numeric exception ”: 
if x> 0 then z : 一 Infinity 
elif x<0 then z : 一 一 Infinity 
elsez : 二 unknown end 寺 
finajlly z 
end try 
end PITOC ; 
OO OO 人 O 和 
一 co，unknown，co 
并 非 所 有 实时 销 误 Maple 都 可 以 处 理 ,Maple 无 法 处 理 下 列 错 误 : 用 户 中断, 声 
明 失 败 ,堆栈 溢出 ,对象 太 大 ,内 存 不 足 。 


4. 调试 语句 ( 见 表 7-2) 


用 法 


ASSERT( 雪 达 式 ， 
错误 信息 ) 


DEBUG( 表 达 式 ) 
debugopts( 语 名 序列 ) 


crror 错误 信息 ,参数 列表 


printlevel : == 整数 值 


showstat( 过 程 , 语 铝 范围 ) 


showstop( ) 


stopat( 过程 ， 


stopetrof( 字 符 串 ) 


stoplast( 庆 人 句号 ) 


stopwhen( 量 ) 
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表 7-2 Maple 的 调试 语 向 
功 能 
检验 逻辑 型 “表达 式 " 应 该 为 真 值 。 否 则 , 显示 "错误 信 
恩 "”。“ 错 误 人 信息" 可 省 略 , 缺 洗 值 为 空 。 在 使 用 ASSERT 


语句 之 前 ,我 们 必须 首先 设置 Maple 的 内 核 选项 
kernelopts(ASSERT=true) , 耕 则 ASSERTI 语 全 不 起 作用 


设置 断 点 ,同时 在 Debugger 窗口 中 显示 “表达 式 ” 的 值 。 
“表达 式 ” 可 省 略 , 缺 省 值 为 空 

设置 Maple 的 各 种 幸 试 选项 

显示 错误 信息 并 立即 中 断 程序 的 运行 。“ 参 数列 表 " 可 省 
略 , 缺 省 值 为 空 


设置 调试 的 深度 , 缺 省 值 为 1。 值 越 大 ,显示 调试 信息 越 多 


显示 过 程 的 语句 及 编号 , 断 点 的 位 置 和 当前 语句 的 位 置 。 
“过 程 " 可 省 略 , 缺 省 值 为 所 有 具有 断 点 的 过 程 。“ 语 句 范 
围 " 也 可 省 略 , 缺 省 但 为 所 有 语句 。“ 语 人 句 范 围 之 外 的 场 
句 将 不 被 显示 出 来 ,而 是 用 ”…” 代替 


显示 所 有 县 有 断 点 的 过 程 . 所 有 的 断 点 .所 有 的 监视 点 和 
所 有 的 错误 监视 点 


在 “过 程 " 中 某 语 句 处 设置 断 点 ,并 返回 所 有 具有 上 断 点 的 过 
程 列表 。 当 逻辑 型 “表达 式 ” 为 真 值 时 ,局 动 Debugger。 
“语句 号 ?可 省 略 , 缺 省 值 为 1 “表达 式 " 也 可 省 略 , 缺 省 什 
为 true 


设置 与 “字符 串 ” 相 匹配 的 错误 监视 点 ,并 返回 所 有 错误 监 
视点 列表 。 当 错误 被 发 现时 ,启动 Debugger。 若 * 字 符 串 ” 
被 省 略 , 则 仅 返 回 所 有 错误 监视 点 列表 
在 发 生 上 次 错误 的 过 程 中 某 语句 处 设置 断 点 。“ 语 句号 ” 
可 省 略 , 缺 省 值 为 1 


设置 关于 "变量 "的 监视 点 ,并 返回 所 有 监视 点 列表 。 当 
“变量 ” 值 发 生变 化 时 ,启动 Debugger。 寿 “变量 ”被 省 略 ， 
则 仅 返 回 所 有 监视 点 列表 


L2 


用 法 
debug( 过 程 列 表 ) 
trace( 过 程 列 表 ) 


tracelast 


unstopat( 过 程 , 语 句号 ) 


unstoperror( 字符 串 ) 


unstopwhen( 变 量 ) 


undebug( 过 程 列 表 ) 
untrace( 过程 列 表 ) 
WARNING( 和 警告 信息 ， 
参数 列表 :) 


where(Cny) 
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续 表 
功 能 
追踪 “过程 列表 ?中 各 过 程 的 运行 情况 ,显示 各 过 程 培 名 的 


结 
显示 上 次 错误 发 生 时 的 程序 调用 堆栈 


清除 "过 程 “中 某 语 句 处 的 断 点 ,并 返回 所 有 具有 新 点 的 过 
程 列 表 。 着 “语句 叶 ” 被 省 略 , 则 清除 "过 程 " 中 的 所 有 断 
所 。 在 过程” 被 省 略 , 则 清除 所 有 过 程 中 的 所 有 上 断 点 


清除 与 字符 串 相 匹配 的 错误 监视 点 ,并 返回 所 有 错误 监 
视点 列表 。 若 "字符 串 "被 省 略 , 则 清除 所 有 错误 监视 点 
清除 关于 “变量 "的 监视 点 ,并 返回 所 有 监视 点 列表 。 若 
“变量 "被 省 略 , 则 清除 所 有 监视 点 


停止 对 "过 程 列 表 " 中 各 过 程 的 追踪 
显示 警告 信息 


显示 程序 调用 堆栈 最 内 的 n 层 。n 可 省 略 , 缺 省 值 为 


虽然 Maple 具有 强大 的 程序 调试 功能 ,但 只 有 加 强 对 编程 语言 的 熟练 掌握 程度 
和 养 成 良好 的 编程 习惯 , 才 可 以 使 我 们 尽量 减少 错误 的 发 生 , 写 出 高 质量 的 程序 。 


Di 一 


] [ 


1 工 一 并 


5. 定义 和 天 阵 | 1] ] 


] ] 


避 页 


输出 100 至 1000 之 间 的 能 被 3 或 11 和 整除 的 所 有 目 然 数 。 

输出 1000 以 内 的 水 仙 花 数 , 即 该 数 等 于 各 位 数字 (十 进 制 ) 的 立方 和 。 
. 输出 1000 以 内 的 完全 数 , 即 该 数 等 于 所 有 真 因子 之 和 。 

定义 函数 ,计算 并 画 出 输入 函数 的 一 阶 导 数 、 二 阶 导 数 。 


1 ，。 1 
] 。。。 1 
2 一 并 | 。 
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OO 1 2 一 ] 
1 0 
6. 定义 算 阵 | 1] 2 
: ， ] 
1 2 … nn 一 1 0 
7. 随机 形成 100 以 内 的 元 维 整 数 数 组 (Ca ), 并 输出 该 数组 的 算术 平均 
人 全 几何 平均 VC 和 调和 平均 To 


a [ID 
< 一 


过 二 十 … 十 亏 
log>， 立 人 > 10 
8.， 定义 分 段 函 数 g(z) 三 人 一 10 委 二 委 10 ,并 计算 g(15),g(5. 2)， 
| 六 |， 广 < 拒 一]10 


g 一 15)。 


9， 求 数列 zm 一 1 十 广 十 … 十 方 极限 的 近似 值 , 当 | z, 一 zori|<<10- 时 停止， 
10. 用 弦 截 法 必 一 au 一 一 1,zi 一 1, 求 方程 三 Z) 一 
太一 2 刀 十 7z 十 4 一 0 根 的 近似 解 , 要 求 1 一 1 <10 ”。 


11. 用 Newton 选 代 公式 wsi 一 于 ( 癌 十 全 ) ,计算 正 实数 的 平方 根 。 
12. 计算 实 拭 阵 A 的 范 数 ‖ 外 4 =wv(AA), 即 AIA 的 最 大 特征 根 的 平方 根 。 


Xi) 一 Ccos3t 


13. 计算 曲线 了， “0O<r<2rx 所 国 区 域 的 面积 4 一 六 | dy 一 vdz。 
yi) 一 asin tit 2 J7 


14. 输入 实 对 称 阵 A, 输 出 对 角 移 阵 刀 和 正 交 算 阵 Q ,满足 万 =QIAQ。 
1] 2 3 4 5 
l16 17 18 19 46 
15. 输出 如 个 形式 的 区 阶 方 阵 A。 例 如 ,mm 一 5,A 王 |15 24 25 20 7|。 
l14 23 22 21 8 
13 1l12 1 10 9 
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典型 的 Maple 11 文件 模式 窗口 (图 8-1) 由 主 菜 单 、 工 具 栏 . 输 入 面板 .工作 窗口 
上 下 文 工 具 栏 `. 状态 栏 6 部 分 组 成 。 在 本 例 中 ,工作 窗口 含有 3 个 工作 表 “ 未 命名 
(1) ， 未 命名 (2)”“UserManual,Contents”。 状 态 栏 用 来 显示 诊 分 断 信 息 、Maple 系 


统 内 核 所 占用 的 内 存 和 处 理 器 时 间 等 。 





1 菜单 命令 


Maple 11 共有 12 个 主 菜 单 :文件 、 编 辑 . 视 图、 插入、 格式 .表格 绘图、 图形、 电 
于 表格 .工具 窗口 帮助。 其 中 只 有 当 光 标 位 于 相应 的 对 象 上 时 ,表格 、 绘 图 .图 形 、 
和 会 处 于 激活 状态 , 即 菜单 命令 为 深 色 ,否则 菜单 命令 为 浅 色 的 无 效 状 


人 下。 每 个 主 莱 单 还 有 若干 菜单 项 和 子 菜单 项 。 
在 工作 窗口 的 某 一 输入 对 象 的 位 置 处 单 击 鼠 标 右键 ,会 弹出 上 下 文 的 快捷 菜单 。 


此 处 不 一 一 袭 述 ,读者 可 在 使 用 中 慢 慢 体会 。 
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.2 工具 栏 


Maple 11 的 工具 栏 中 共有 26 个 命令 。 将 光标 置 于 命令 的 图 标 处 时 ,我 们 可 以 
看 到 有 关 该 命令 功能 的 屏幕 提示 。 


8.3 上 下 文 工 具 栏 


Maple 11 共有 4 种 上 下 文 工 具 栏 :文本 /数学 绘图、 图形、 动画 。 当 光标 位 于 不 
司 的 对 象 上 时 ,出现 相 应 的 上 下 文 工 具 栏 。 ad 


8.4 输入 面板 本 


Maple 11 共有 30 组 输入 面板 ,其 中 8 个 为 字母 表 ,9 个 用 于 输入 Maple 表达 式 ， 
11 个 用 于 输入 数学 符号 ,还 有 2 个 用 于 绘图 。 通 常 只 显示 缺 省 面板 。 可 通过 鼠标 右 
击 输 入 面板 更 改 设 置 (图 8-2) 。 3 
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8.5 获取 帮助 示例 


【 例 1】 用 “Maple 工 . A? 学 习 中 值 定 理 。 
运行 Maple 11 ,进入 文件 模式 窗口 。 
点 击 菜单 项 “帮助 ~>Maple 漫游 ” ,显示 "The Maple Tour (图 8-3 ) 。 


malnle TOU 玫 几 才 - 缴 可 pieSO 仁 :和 6 哲 





For addittional resourceS， 
Vi 上 





图 8-3 


点 击 链接 Ten Minute Tour, 跟 随 帮 助 浏览 ,不 到 10 分 钟 你 就 会 了 解 Maple 的 


轮廓 。 


点 击 链接 Education Assessment Maple 工 . 瓜 ., 调 出 Maple 的 辅助 教学 系 统 
( 多 8-4 ) O 
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了 了 ducation, Assessment Maple 工 .A. 


The Student Packages alow instructors to efectively dehver course content and 由 ey alow students to gaim Instght， 
Prachce as 友 志 as deeben 由 er Understandmg Stydent Packages ae aygalable for be iolewng topPlcs: 


cas 






Maple also alows youto deliver assigntments and ftests mght inside of a Maple Worksheet Students are 电 Yen Instatt 
人 feedback on 出 et level of understanding. Assignments authored within ]Maple can also be expottedto am onine Maple 
工 各 system. Chck below tor more intormatlot 


图 8-4 
点 击 链接 Calculus , 调 出 关于 单 变 量 微 积 分 的 读 件 (图 8-5)。 


YSingle-variable Calculus 


The Student[Calculus1] package includes anumber of interactve tutors 出 at address spec 由 c subjects im a (Single- 
Variable) Calculus Course Chck the buttons below to launch exarmples of 由 ese bitors. They Can also be foungq on 地 e 
Tools>Tutors menu. 


Stepb by 悦 ep ETfefentietiom CUrve AnalySis Mean Yth 妈 Theorerm 
S 沁 ep by Step Integrstion 


Step by Step Limits 








WOokHWe 0OT REYDKHiOP 


intecf 避 Approximestions Antigerivy 磺 |YeS 
Taylor APproximatIDIm ”Function Inverse 








These hutors can be used by an insttuctor to 贡 ustrate a Concept in class_ The tutors are also Usefui tor 也 ec students to 
rewmew and bracthce on 也 er own. 
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点 击 Mean Value Theorem 按钮 ,运行 中 值 定 理 课件 。 在 输入 困 数 太 z) 三 


( 久 二 大 ae。 的 点 c 一 0. 695( 图 8-6)。 
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重 ea3e Yalaet 了 The0O 站 


(1L.2 -~ 0) to Che 
DO11owing Values of C: 


起 世人 





菜单 项 “工具 -> 向 导 -> 微 积 分 一 单 变 量 -> 平均 值 定理 ”也 同样 可 以 显示 如 上 图 所 
示 的 对 话 框 。 

【 例 2〗 用 菜单 命令 观察 函数 的 泰勒 展开 。 

运行 菜单 项 “工具 -> 向 导 -> 微 积 分 一 单 变量 -> 泰勒 近似 ”。 在 输入 函数 Fz)== 
zx cos(z), 初 值 点 zx 一 0, 展 开 次 数 Order 王 4 后 ,点 击 Display 按钮 ;在 同一 个 坐标 系 
中 显示 函数 及 其 泰勒 展开 的 图 像 (图 8-7) 。 8 


TI TY 们 万 于 本 


The Taylor approxtmahon for x cos(x ) 
of order 4 aboutthe pomt 0 1 | 


XCcos(X)=X- 开 3 


芭 


ww 


1TaY1orApprOxinacion(xr*rcos(x)，0， = ea 
] oucpucC '='p1oC ' ); 


光 
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【 例 3】 调 出 有 关 和 矩阵 运算 命令 


用 鼠标 右键 点 击 和 矩阵 , 则 可 以 调 出 许多 有 关 矩 阵 运 去 算 的 图 数 。 和 党 用 的 有 : 
标准 果 数 (图 8-8) : 维 数 Dimensions 、 秩 Rank 行列 式 Determinant 、 逆 矩 阵 
Inverse、 范 数 Norm 、 人迹 Trace、 转 置 矩 阵 Transpose。 





特征 值 相 关 的 因数 (图 8-9) :特征 多 项 式 Characteristic Polynomial 特征 值 
Eigenvalues 特征 回 量 Eligenvectors 奇异 值 Sngular Values。 





图 8-9 


征 阵 分 解 和 标准 形 ( 图 8-10) :Cholesky 分 解 、LU 分 解 、QR 分 解 、Frobenius 
标准 形 、Hermite 标准 形 ,Jordan 标准 形 、. Smith 标准 形 。 
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